X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=data%2FCompileMimeTypes.hs;fp=data%2FCompileMimeTypes.hs;h=ff65a6dfebec8051f3c23feb762db94df7371590;hb=c6b11025d1f81c668e9995e856b7bb34175230d3;hp=0000000000000000000000000000000000000000;hpb=1000bdc46cfe7b3ae550ff24ccea9f440f11b42a;p=Lucu.git

diff --git a/data/CompileMimeTypes.hs b/data/CompileMimeTypes.hs
new file mode 100755
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"