Code reorganisation

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

diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index 8ef80d94a51f712b7e30fa6b4f33cd5d369e8ef6..c81406ef648395a63c40dcf78f724b7d5b4ed8b4 100644 (file)
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -46,8 +46,11 @@ module Network.HTTP.Lucu
     , module Network.HTTP.Lucu.Resource
 
       -- ** Things to be used in the Resource monad
+      -- *** 'Method'
+    , Method(..)
+
       -- *** 'StatusCode'
-    , module Network.HTTP.Lucu.StatusCode
+    , module Network.HTTP.Lucu.Response.StatusCode
 
       -- *** 'Abortion'
     , module Network.HTTP.Lucu.Abortion
@@ -56,12 +59,10 @@ module Network.HTTP.Lucu
     , ETag(..)
     , strongETag
     , weakETag
-    , parseETag
 
       -- *** MIME Type
     , MIMEType(..)
     , MIMEParams
-    , parseMIMEType
     , mimeType
 
       -- *** Authentication
@@ -80,10 +81,9 @@ import Network.HTTP.Lucu.Dispatcher
 import Network.HTTP.Lucu.ETag
 import Network.HTTP.Lucu.Httpd
 import Network.HTTP.Lucu.MIMEParams
-import Network.HTTP.Lucu.MIMEType hiding (mimeType)
-import Network.HTTP.Lucu.MIMEType.TH
+import Network.HTTP.Lucu.MIMEType
+import Network.HTTP.Lucu.Request
 import Network.HTTP.Lucu.Resource
-import Network.HTTP.Lucu.Response
+import Network.HTTP.Lucu.Response.StatusCode
 import Network.HTTP.Lucu.StaticFile
-import Network.HTTP.Lucu.StatusCode
 import Network.HTTP.Lucu.Utils