data/mime.types

[Lucu.git] / data / CompileMimeTypes.hs

#!/usr/bin/env runghc

import Network.HTTP.Lucu.MIMEType.Guess

main = do extMap <- parseExtMapFile "/dev/stdin"
          outputExtMapAsHS extMap "/dev/stdout"