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

diff --git a/data/CompileMimeTypes.hs b/data/CompileMimeTypes.hs
index ff65a6d..9ba5b1e 100755
--- a/data/CompileMimeTypes.hs
+++ b/data/CompileMimeTypes.hs
@@ -1,6 +1,21 @@
 #!/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"
 
-main = do extMap <- parseExtMapFile "/dev/stdin"
-          outputExtMapAsHS extMap "/dev/stdout"
+          writeFile outFile $ doc ++ src