X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=data%2FCompileMimeTypes.hs;fp=data%2FCompileMimeTypes.hs;h=0000000000000000000000000000000000000000;hb=48bc90d66a45c0b9b6f52272b46cf2949ed802e3;hp=9ba5b1ed0ed228b5a1ca83d5aac33f8fae1d21ba;hpb=b1fac0a2cb1cafa008c0efa8ae4e14afbee0927f;p=Lucu.git

diff --git a/data/CompileMimeTypes.hs b/data/CompileMimeTypes.hs
deleted file mode 100755
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