X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu.hs;h=849f97ec7b258d292de8ee199bfe4f1885c7b46a;hb=667baf9f664ccc093241287ad727b2839290f456;hp=682e91f04d163ca2af6a6e691611350b4ffa8f79;hpb=874e6a4cc1229d29f1d902f36482cf0f78e30c9f;p=Lucu.git

diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index 682e91f..849f97e 100644
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -35,11 +35,15 @@ module Network.HTTP.Lucu
       -- * 'Config'uration
     , module Network.HTTP.Lucu.Config
 
-      -- * Resource Tree
-    , ResTree
-    , mkResTree
+      -- * URI-related data types
+    , Scheme
+    , Host
+    , PathSegments
 
-      -- * 'Resource' Monad
+      -- * 'Resource' dispatcher
+    , module Network.HTTP.Lucu.Dispatcher
+
+      -- * 'Rsrc' Monad
     , module Network.HTTP.Lucu.Resource
 
       -- ** Things to be used in the Resource monad
@@ -57,7 +61,7 @@ module Network.HTTP.Lucu
 
       -- *** MIME Type
     , MIMEType(..)
-    , MIMEParams(..)
+    , MIMEParams
     , parseMIMEType
     , mimeType
 
@@ -73,13 +77,14 @@ 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.MIMEParams
 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
+import Network.HTTP.Lucu.Utils