Moved hidden modules from Exposed-Modules to Other-Modules.

darcs-hash:20070825080343-62b54-a4f53e0d6437a134a1b60a7c2ffd962dc44422bf.gz

diff --git a/Lucu.cabal b/Lucu.cabal
index e7a0e76423b1f419a39f2f1fbae3de576efc5abb..8429cfae8583492cb15552091ed3cfd17a899615 100644 (file)
--- a/Lucu.cabal
+++ b/Lucu.cabal
@@ -21,31 +21,32 @@ Build-Depends:
 Exposed-Modules:
         Network.HTTP.Lucu
         Network.HTTP.Lucu.Abortion
-        Network.HTTP.Lucu.Chunk
         Network.HTTP.Lucu.Config
-        Network.HTTP.Lucu.DefaultPage
         Network.HTTP.Lucu.ETag
-        Network.HTTP.Lucu.Format
-        Network.HTTP.Lucu.Headers
         Network.HTTP.Lucu.HttpVersion
         Network.HTTP.Lucu.Httpd
-        Network.HTTP.Lucu.Interaction
         Network.HTTP.Lucu.MIMEType
         Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
         Network.HTTP.Lucu.MIMEType.Guess
         Network.HTTP.Lucu.Parser
         Network.HTTP.Lucu.Parser.Http
-        Network.HTTP.Lucu.Postprocess
-        Network.HTTP.Lucu.Preprocess
         Network.HTTP.Lucu.RFC1123DateTime
         Network.HTTP.Lucu.Request
-        Network.HTTP.Lucu.RequestReader
         Network.HTTP.Lucu.Resource
         Network.HTTP.Lucu.Resource.Tree
         Network.HTTP.Lucu.Response
-        Network.HTTP.Lucu.ResponseWriter
         Network.HTTP.Lucu.StaticFile
         Network.HTTP.Lucu.Utils
+Other-Modules:
+        Network.HTTP.Lucu.Chunk
+        Network.HTTP.Lucu.DefaultPage
+        Network.HTTP.Lucu.Format
+        Network.HTTP.Lucu.Headers
+        Network.HTTP.Lucu.Interaction
+        Network.HTTP.Lucu.Postprocess
+        Network.HTTP.Lucu.Preprocess
+        Network.HTTP.Lucu.RequestReader
+        Network.HTTP.Lucu.ResponseWriter
 Extra-Source-Files:
         data/CompileMimeTypes.hs
         data/mime.types

diff --git a/Network/HTTP/Lucu/Chunk.hs b/Network/HTTP/Lucu/Chunk.hs
index 9ad41f86786c0cdf15aed8c03717426356a88d1a..dd7465e2bf5ae5c15956c68f95138696bf3de996 100644 (file)
--- a/Network/HTTP/Lucu/Chunk.hs
+++ b/Network/HTTP/Lucu/Chunk.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.Chunk
     ( chunkHeaderP  -- Num a => Parser a
     , chunkFooterP  -- Parser ()

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index c4e82d5dd7e6e93f278c33c4dd1d5d3fe5a523d7..05acb60e5162711c840069aac3ab41a4aebd69de 100644 (file)
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -1,4 +1,3 @@
--- #hide, prune
 module Network.HTTP.Lucu.DefaultPage
     ( getDefaultPage
     , writeDefaultPage

diff --git a/Network/HTTP/Lucu/Format.hs b/Network/HTTP/Lucu/Format.hs
index 26319b737391e238f6e5c90ab1d9209054efa796..042b4fec5c4422a089297b844dae7c59d2c6cb4f 100644 (file)
--- a/Network/HTTP/Lucu/Format.hs
+++ b/Network/HTTP/Lucu/Format.hs
@@ -1,5 +1,3 @@
--- #hide
-
 -- 本當にこんなものを自分で書く必要があったのだらうか。Printf は重いの
 -- で駄目だが、それ以外のモジュールを探しても見付からなかった。
 

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index a5808838990efb9ea501b95b1770a19890273e20..65a4940026d5b626d4a11bbec50449d101745256 100644 (file)
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.Headers
     ( Headers
     , HasHeaders(..)

diff --git a/Network/HTTP/Lucu/Interaction.hs b/Network/HTTP/Lucu/Interaction.hs
index 468ef1179c78d5e9405f73b7f73879476c18d5fa..91979c9d5449e7a1b2ee7811a0c8294a9d381fc7 100644 (file)
--- a/Network/HTTP/Lucu/Interaction.hs
+++ b/Network/HTTP/Lucu/Interaction.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.Interaction
     ( Interaction(..)
     , InteractionState(..)
@@ -34,9 +33,7 @@ data Interaction = Interaction {
     , itrResponse     :: !(TVar Response)
 
     -- FIXME: この三つは本來 TVar であるべきでないので、唯の Bool にす
-    -- るに越した事は無いが、それは重要でない。そんな golf で自分の貴重
-    -- な時間を /dev/null に突っ込むのは、他にしたい事が何も無くなって
-    -- からにすべき。
+    -- るに越した事は無いが、それは重要でない。
     , itrRequestHasBody    :: !(TVar Bool)
     , itrRequestIsChunked  :: !(TVar Bool)
     , itrExpectedContinue  :: !(TVar Bool)

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index 5c4f5d01bb3bca73f92228e27833c4d489625017..062a3bf6203c303195684999a4198cb510338700 100644 (file)
--- a/Network/HTTP/Lucu/Postprocess.hs
+++ b/Network/HTTP/Lucu/Postprocess.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.Postprocess
     ( postprocess
     , completeUnconditionalHeaders

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 1397950212abd91ced41b1a7b4d9293f61146a2e..37b1a75ad997dbc7cfe14cf5fca0b91c5b4b287b 100644 (file)
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.Preprocess
     ( preprocess
     )

diff --git a/Network/HTTP/Lucu/RequestReader.hs b/Network/HTTP/Lucu/RequestReader.hs
index 639a37104262ad37a762c2881118977e002489b3..d1505e80b8386e0f5e42e4b695a1fcf2e91e9a31 100644 (file)
--- a/Network/HTTP/Lucu/RequestReader.hs
+++ b/Network/HTTP/Lucu/RequestReader.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.RequestReader
     ( requestReader
     )

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 7891db1d4216230374dd767c3adde35155f28f35..a3a6af106071d6d8a5f7b357fab3ee4823e057ef 100644 (file)
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.ResponseWriter
     ( responseWriter
     )