From: pho Date: Sat, 25 Aug 2007 08:03:43 +0000 (+0900) Subject: Moved hidden modules from Exposed-Modules to Other-Modules. X-Git-Tag: RELEASE-0_2_1~37 X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=d05d8c883eaca12ee621975a2b95c5ebdc2357d2;p=Lucu.git Moved hidden modules from Exposed-Modules to Other-Modules. darcs-hash:20070825080343-62b54-a4f53e0d6437a134a1b60a7c2ffd962dc44422bf.gz --- 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 )