data/CompileMimeTypes.hs

   1 #!/usr/bin/env runghc
   2 {-# LANGUAGE
   3     UnicodeSyntax
   4   #-}
   5 import Network.HTTP.Lucu.MIMEType.Guess
   6 import System
   7
   8 main ∷ IO ()
   9 main = do [inFile, outFile] ← getArgs
  10           extMap ← parseExtMapFile inFile
  11
  12           let src = serializeExtMap
  13                     extMap
  14                     "Network.HTTP.Lucu.MIMEType.DefaultExtensionMap"
  15                     "defaultExtensionMap"
  16               doc = "-- |This module is automatically generated from data\\/mime.types.\n" ++
  17                     "-- 'defaultExtensionMap' contains every possible pairs of an extension\n" ++
  18                     "-- and a MIME Type.\n" ++
  19                     "\n"
  20
  21           writeFile outFile $ doc ++ src