DefaultExtensionMap is now generated with TH.

[Lucu.git] / data / CompileMimeTypes.hs

diff --git a/data/CompileMimeTypes.hs b/data/CompileMimeTypes.hs
deleted file mode 100755 (executable)
index 9ba5b1e..0000000
--- a/data/CompileMimeTypes.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/env runghc
-{-# LANGUAGE
-    UnicodeSyntax
-  #-}
-import Network.HTTP.Lucu.MIMEType.Guess
-import System
-
-main ∷ IO ()
-main = do [inFile, outFile] ← getArgs
-          extMap ← parseExtMapFile inFile
-
-          let src = serializeExtMap
-                    extMap
-                    "Network.HTTP.Lucu.MIMEType.DefaultExtensionMap"
-                    "defaultExtensionMap"
-              doc = "-- |This module is automatically generated from data\\/mime.types.\n" ++
-                    "-- 'defaultExtensionMap' contains every possible pairs of an extension\n" ++
-                    "-- and a MIME Type.\n" ++
-                    "\n"
-
-          writeFile outFile $ doc ++ src