From 41b0d69438ec76c5bd070348cf9912dc72f3ff44 Mon Sep 17 00:00:00 2001 From: pho Date: Thu, 3 May 2007 17:22:34 +0900 Subject: [PATCH] Cabal darcs-hash:20070503082234-62b54-65be13ba3cc1a53ccdc78d04009e4974e1e868d2.gz --- Lucu.cabal | 22 +++++++++++++++++++--- Makefile | 5 ++++- Network/HTTP/Lucu.hs | 10 +++++----- examples/HelloWorld.hs | 16 +--------------- 4 files changed, 29 insertions(+), 24 deletions(-) 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 +Maintainer: PHO +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 } -- 2.40.0