Cabal

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

diff --git a/Lucu.cabal b/Lucu.cabal
index 53bfa97ef5de4447fc6765c144709be7ece1a230..d2b3168ed183a27e3440e1388d7cb999bf4fee82 100644 (file)
--- a/Lucu.cabal
+++ b/Lucu.cabal
@@ -1,10 +1,21 @@
 Name: Lucu
 Synopsis: HTTP Daemonic Library
 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
 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:
 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
         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
 ghc-options: -fglasgow-exts -O3
 
 --Executable: HelloWorld

diff --git a/Makefile b/Makefile
index bf7f8818de645a883e53b7e55fb0b223ae0fa20f..7c0b30e7d2f9c4c44528cbff26432f35f1c6444a 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -25,4 +25,7 @@ doc: .setup-config Setup
 install: build
        ./Setup install
 
 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 4ab6bc65abd01f376a70f997705c9534db365e41..14d39543aca45b86f6796e940c1835f48652f65a 100644 (file)
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -17,16 +17,16 @@
 --
 --   [/Logging/] Lucu doesn't log any requests from any clients.
 --
 --
 --   [/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
 --
 --   [/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 928dab9fcfc976cab1360b1ceafde01f8b43c76a..468de85da37b3dfedad4940d8250248b230f8940 100644 (file)
--- a/examples/HelloWorld.hs
+++ b/examples/HelloWorld.hs
@@ -1,19 +1,5 @@
-import Control.Monad.Trans
-import Data.Maybe

 import Network
 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 }
 
 main :: IO ()
 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }