From: pho <pho@cielonegro.org>
Date: Thu, 3 May 2007 08:22:34 +0000 (+0900)
Subject: Cabal
X-Git-Tag: RELEASE-0_2_1~43
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=41b0d69438ec76c5bd070348cf9912dc72f3ff44;p=Lucu.git

Cabal

darcs-hash:20070503082234-62b54-65be13ba3cc1a53ccdc78d04009e4974e1e868d2.gz
---

diff --git a/Lucu.cabal b/Lucu.cabal
index 53bfa97..d2b3168 100644
--- a/Lucu.cabal
+++ b/Lucu.cabal
@@ -1,10 +1,21 @@
 Name: Lucu
 Synopsis: HTTP Daemonic Library
+Description:
+        Lucu is an HTTP daemonic library. It can be embedded in any
+        Haskell program and runs in an independent thread.
+        Lucu is not a replacement for Apache. It is intended to be
+        used to create an efficient web-based application without
+        messing around FastCGI. It is also intended to be run behind a
+        reverse-proxy so it doesn't have some facilities like logging,
+        client filtering and so on.
 Version: 0.1
 License: PublicDomain
-Author: PHO
-Homepage: http://ccm.sherry.jp/
-Category: Incomplete
+Author: PHO <phonohawk at ps dot sakura dot ne dot jp>
+Maintainer: PHO <phonohawk at ps dot sakura dot ne dot jp>
+Stability: experimental
+Homepage: http://ccm.sherry.jp/lucu/
+Category: Network
+Tested-With: GHC == 6.6
 Build-Depends:
          base, mtl, network, stm, hxt, haskell-src, unix
 Exposed-Modules:
@@ -34,6 +45,11 @@ Exposed-Modules:
         Network.HTTP.Lucu.ResponseWriter
         Network.HTTP.Lucu.StaticFile
         Network.HTTP.Lucu.Utils
+Extra-Source-Files:
+        data/CompileMimeTypes.hs
+        data/mime.types
+        examples/HelloWorld.hs
+        examples/Makefile
 ghc-options: -fglasgow-exts -O3
 
 --Executable: HelloWorld
diff --git a/Makefile b/Makefile
index bf7f881..7c0b30e 100644
--- a/Makefile
+++ b/Makefile
@@ -25,4 +25,7 @@ doc: .setup-config Setup
 install: build
 	./Setup install
 
-.PHONY: build run clean install doc
\ No newline at end of file
+sdist: Setup
+	./Setup sdist
+
+.PHONY: build run clean install doc sdist
\ No newline at end of file
diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index 4ab6bc6..14d3954 100644
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -17,16 +17,16 @@
 --
 --   [/Logging/] Lucu doesn't log any requests from any clients.
 --
---   [/Client Filtering/] Lucu always accept any clients. No IP filter
---   is implemented.
+--   [/Client Filtering/] Lucu always accepts any clients. No IP
+--   filter is implemented.
 --
---   [/SSL Support/] Lucu can handle HTTP only.
+--   [/SSL Support/] Lucu can handle only HTTP.
 --
 --   [/Bandwidth Limitting/] Lucu doesn't limit bandwidth it consumes.
 --
 --   [/Protection Against Wicked Clients/] Lucu is fragile against
---   wicked clients. No attacker should cause a buffer-overflow but
---   can possibly DoS it.
+--   wicked clients. No attacker should be able to cause a
+--   buffer-overflow but can possibly DoS it.
 --
 
 
diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs
index 928dab9..468de85 100644
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -1,19 +1,5 @@
-import Control.Monad.Trans
-import Data.Maybe
 import Network
-import Network.HTTP.Lucu.Config
-import Network.HTTP.Lucu.ETag
-import Network.HTTP.Lucu.Httpd
-import Network.HTTP.Lucu.MIMEType
-import Network.HTTP.Lucu.MIMEType.Guess
-import Network.HTTP.Lucu.Parser
-import Network.HTTP.Lucu.Parser.Http
-import Network.HTTP.Lucu.Resource
-import Network.HTTP.Lucu.Resource.Tree
-import Network.HTTP.Lucu.Response
-import Network.HTTP.Lucu.StaticFile
-import Network.URI
-import System.Time
+import Network.HTTP.Lucu
 
 main :: IO ()
 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }