X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=data%2FCompileMimeTypes.hs;h=9ba5b1ed0ed228b5a1ca83d5aac33f8fae1d21ba;hp=811840670178be97fa220b74fa082ae5d526c082;hb=a362be1c8664306b970c32e1df9b62081498feb1;hpb=45e3770f440c9fa8668f7e33063d630d73bcbe55

diff --git a/data/CompileMimeTypes.hs b/data/CompileMimeTypes.hs
index 8118406..9ba5b1e 100755
--- a/data/CompileMimeTypes.hs
+++ b/data/CompileMimeTypes.hs
@@ -1,10 +1,13 @@
 #!/usr/bin/env runghc
-
+{-# LANGUAGE
+    UnicodeSyntax
+  #-}
 import Network.HTTP.Lucu.MIMEType.Guess
 import System
 
-main = do [inFile, outFile] <- getArgs
-          extMap <- parseExtMapFile inFile
+main ∷ IO ()
+main = do [inFile, outFile] ← getArgs
+          extMap ← parseExtMapFile inFile
 
           let src = serializeExtMap
                     extMap