More documentation

[Lucu.git] / Network / HTTP / Lucu / Config.hs

diff --git a/Network/HTTP/Lucu/Config.hs b/Network/HTTP/Lucu/Config.hs
index d33f35ab20de5533bd21e6b51e84fc55b5e08656..b49268a9f771088f2f369a9429d3028a5c36b588 100644 (file)
--- a/Network/HTTP/Lucu/Config.hs
+++ b/Network/HTTP/Lucu/Config.hs
@@ -10,6 +10,7 @@ import           Data.Map (Map)
 import           Network
 import           Network.BSD
 import           Network.HTTP.Lucu.MIMEType
+import           Network.HTTP.Lucu.MIMEType.Guess
 import           Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
 import           System.IO.Unsafe
 
@@ -50,7 +51,7 @@ data Config = Config {
     -- a good idea to use GnomeVFS
     -- (<http://developer.gnome.org/doc/API/2.0/gnome-vfs-2.0/>)
     -- instead of vanilla FS.
-    , cnfExtToMIMEType        :: Map String MIMEType
+    , cnfExtToMIMEType        :: ExtMap
     }
 
 -- |The default configuration. Generally you can use this value as-is,