X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType%2FDefaultExtensionMap.hs;h=6d33cd602f093f503eb6be4b98c2f6f78fbc9511;hb=8e78bc83bfe67a376293c346ae0b30f1a684c787;hp=cdeb0e84e82c4421317c04f8b598f143beda8806;hpb=175e14b3b144537644e65ca76f1fca5c56fd44e9;p=Lucu.git

diff --git a/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs b/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
index cdeb0e8..6d33cd6 100644
--- a/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
+++ b/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
@@ -1,14 +1,18 @@
+-- |This module is automatically generated from data\/mime.types.
+-- 'defaultExtensionMap' contains every possible pairs of an extension
+-- and a MIME Type.
+
 {- !!! WARNING !!!
-   This file is automatically generated from data/mime.types.
+   This file is automatically generated.
    DO NOT EDIT BY HAND OR YOU WILL REGRET -}
 
 module Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
        (defaultExtensionMap) where
 import Network.HTTP.Lucu.MIMEType
+import Network.HTTP.Lucu.MIMEType.Guess
 import qualified Data.Map as M
-import Data.Map (Map)
  
-defaultExtensionMap :: Map String MIMEType
+defaultExtensionMap :: ExtMap
 defaultExtensionMap
   = M.fromList
       [("3gp", "application" </> "x-3gp"), ("669", "audio" </> "x-mod"),