data/CompileMimeTypes.hs

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