3 import Network.HTTP.Lucu.MIMEType.Guess
6 main = do [inFile, outFile] <- getArgs
7 extMap <- parseExtMapFile inFile
9 let src = serializeExtMap
11 "Network.HTTP.Lucu.MIMEType.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" ++
18 writeFile outFile $ doc ++ src