data/mime.types

[Lucu.git] / data / CompileMimeTypes.hs

diff --git a/data/CompileMimeTypes.hs b/data/CompileMimeTypes.hs
new file mode 100755 (executable)
index 0000000..ff65a6d
--- /dev/null
+++ b/data/CompileMimeTypes.hs
@@ -0,0 +1,6 @@
+#!/usr/bin/env runghc
+
+import Network.HTTP.Lucu.MIMEType.Guess
+
+main = do extMap <- parseExtMapFile "/dev/stdin"
+          outputExtMapAsHS extMap "/dev/stdout"