Code clean-up using convertible-text.

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

diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index d45beaf81f196b06203aa9a1f4eb770ccb014b68..876064ce8c14701931f0a040e6e8c511a02783b1 100644 (file)
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -9,7 +9,7 @@
 --   chunked I\/O, ETag comparison and \"100 Continue\".
 --
 --   [/SSL connections/] Lucu can handle HTTP connections over Secure
---   Socket Layer.
+--   Socket Layer when configured with -fssl flag.
 --
 -- Lucu is not a replacement for Apache or lighttpd. It is intended to
 -- be used to build an efficient web-based RESTful application which
@@ -35,16 +35,22 @@ module Network.HTTP.Lucu
       -- * 'Config'uration
     , module Network.HTTP.Lucu.Config
 
-      -- * Resource Tree
-    , ResTree
-    , mkResTree
+      -- * URI-related data types
+    , Host
+    , Path
 
-      -- * 'Resource' Monad
+      -- * 'Resource' dispatcher
+    , module Network.HTTP.Lucu.Dispatcher
+
+      -- * 'Rsrc' Monad
     , module Network.HTTP.Lucu.Resource
 
       -- ** Things to be used in the Resource monad
-      -- *** Status Code
-    , StatusCode(..)
+      -- *** 'Method'
+    , Method(..)
+
+      -- *** 'StatusCode'
+    , module Network.HTTP.Lucu.StatusCode
 
       -- *** 'Abortion'
     , module Network.HTTP.Lucu.Abortion
@@ -53,12 +59,11 @@ module Network.HTTP.Lucu
     , ETag(..)
     , strongETag
     , weakETag
-    , parseETag
 
       -- *** MIME Type
     , MIMEType(..)
-    , mkMIMEType
-    , parseMIMEType
+    , MIMEParams
+    , mimeType
 
       -- *** Authentication
     , AuthChallenge(..)
@@ -72,10 +77,15 @@ module Network.HTTP.Lucu
 import Network.HTTP.Lucu.Abortion
 import Network.HTTP.Lucu.Authentication
 import Network.HTTP.Lucu.Config
+import Network.HTTP.Lucu.Dispatcher
 import Network.HTTP.Lucu.ETag
 import Network.HTTP.Lucu.Httpd
-import Network.HTTP.Lucu.MIMEType
+import Network.HTTP.Lucu.MIMEParams
+import Network.HTTP.Lucu.MIMEType hiding (mimeType)
+import Network.HTTP.Lucu.MIMEType.TH
+import Network.HTTP.Lucu.Request
 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
+import Network.HTTP.Lucu.Utils