maid 2009.8.18 → 2009.8.25
raw patch · 3 files changed
+11/−4 lines, 3 filesdep +hack-handler-happstackdep −hack-handler-evhttp
Dependencies added: hack-handler-happstack
Dependencies removed: hack-handler-evhttp
Files
- changelog.md +7/−0
- maid.cabal +2/−2
- src/maid.hs +2/−2
changelog.md view
@@ -1,3 +1,10 @@+2009.8.25+---------++### Fix++* use happstack backend, since evhttp is using too much cpu on linux+ 2009.8.18 ---------
maid.cabal view
@@ -1,5 +1,5 @@ Name: maid-Version: 2009.8.18+Version: 2009.8.25 Build-type: Simple Synopsis: A simple static web server Description:@@ -18,6 +18,6 @@ Executable maid ghc-options: -Wall -threaded- build-depends: base >= 4 && < 5, mps >= 2009.8.18.1, loli >= 2009.8.18, haskell98, hack-contrib >= 2009.8.18, data-default, hack-handler-evhttp, hack+ build-depends: base >= 4 && < 5, mps >= 2009.8.18.1, loli >= 2009.8.18, haskell98, hack-contrib >= 2009.8.18, data-default, hack-handler-happstack, hack hs-source-dirs: src/ main-is: maid.hs
src/maid.hs view
@@ -2,7 +2,7 @@ {-# LANGUAGE NamedFieldPuns #-} import Network.Loli (loli, public, mime)-import Hack.Handler.EvHTTP+import Hack.Handler.Happstack import System (getArgs) import MPS.TH (here) import MPS (splash, tuple2, reject, strip, format_time, now, (/), (-))@@ -31,7 +31,7 @@ putStrLn - "\226\157\130 Maid serving on port: " ++ show port putStrLn "" - runWithConfig def {cfgPort = port} - app+ runWithConfig def {port} - app where log_access app = \env -> do