More documentation

[Lucu.git] / Network / HTTP / Lucu / MIMEType / DefaultExtensionMap.hs

diff --git a/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs b/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
index cdeb0e84e82c4421317c04f8b598f143beda8806..38c5589e60e5376fbfc3f2a45dbcb7d4be789980 100644 (file)
--- a/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
+++ b/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
@@ -1,14 +1,19 @@
+-- |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"),