X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu.hs;h=3579c5ca632cdc442a2fe7eb85f5d9bf68181555;hp=d45beaf81f196b06203aa9a1f4eb770ccb014b68;hb=51eda5b;hpb=7eed467cbc7ed48c1b88766f0c7eb6bb77be09ef

diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index d45beaf..3579c5c 100644
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -44,7 +44,7 @@ module Network.HTTP.Lucu
 
       -- ** Things to be used in the Resource monad
       -- *** Status Code
-    , StatusCode(..)
+    , module Network.HTTP.Lucu.StatusCode
 
       -- *** 'Abortion'
     , module Network.HTTP.Lucu.Abortion
@@ -57,8 +57,8 @@ module Network.HTTP.Lucu
 
       -- *** MIME Type
     , MIMEType(..)
-    , mkMIMEType
     , parseMIMEType
+    , mimeType
 
       -- *** Authentication
     , AuthChallenge(..)
@@ -74,8 +74,10 @@ import Network.HTTP.Lucu.Authentication
 import Network.HTTP.Lucu.Config
 import Network.HTTP.Lucu.ETag
 import Network.HTTP.Lucu.Httpd
-import Network.HTTP.Lucu.MIMEType
+import Network.HTTP.Lucu.MIMEType hiding (mimeType)
+import Network.HTTP.Lucu.MIMEType.TH
 import Network.HTTP.Lucu.Resource
 import Network.HTTP.Lucu.Resource.Tree
 import Network.HTTP.Lucu.Response
 import Network.HTTP.Lucu.StaticFile
+import Network.HTTP.Lucu.StatusCode