From d05d8c883eaca12ee621975a2b95c5ebdc2357d2 Mon Sep 17 00:00:00 2001
From: pho <pho@cielonegro.org>
Date: Sat, 25 Aug 2007 17:03:43 +0900
Subject: [PATCH] Moved hidden modules from Exposed-Modules to Other-Modules.

darcs-hash:20070825080343-62b54-a4f53e0d6437a134a1b60a7c2ffd962dc44422bf.gz
---
 Lucu.cabal                          | 19 ++++++++++---------
 Network/HTTP/Lucu/Chunk.hs          |  1 -
 Network/HTTP/Lucu/DefaultPage.hs    |  1 -
 Network/HTTP/Lucu/Format.hs         |  2 --
 Network/HTTP/Lucu/Headers.hs        |  1 -
 Network/HTTP/Lucu/Interaction.hs    |  5 +----
 Network/HTTP/Lucu/Postprocess.hs    |  1 -
 Network/HTTP/Lucu/Preprocess.hs     |  1 -
 Network/HTTP/Lucu/RequestReader.hs  |  1 -
 Network/HTTP/Lucu/ResponseWriter.hs |  1 -
 10 files changed, 11 insertions(+), 22 deletions(-)

diff --git a/Lucu.cabal b/Lucu.cabal
index e7a0e76..8429cfa 100644
--- 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 9ad41f8..dd7465e 100644
--- 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 c4e82d5..05acb60 100644
--- 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 26319b7..042b4fe 100644
--- 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 a580883..65a4940 100644
--- 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 468ef11..91979c9 100644
--- 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 5c4f5d0..062a3bf 100644
--- 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 1397950..37b1a75 100644
--- 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 639a371..d1505e8 100644
--- 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 7891db1..a3a6af1 100644
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -1,4 +1,3 @@
--- #hide
 module Network.HTTP.Lucu.ResponseWriter
     ( responseWriter
     )
-- 
2.40.0