servius 0.0.0 → 0.0.1

raw patch · 2 files changed

+8/−8 lines, 2 filesdep ~wai-app-staticdep ~wai-extradep ~warp

Dependency ranges changed: wai-app-static, wai-extra, warp

Files

• servius.cabal +4/−4
• servius.hs +4/−4

@@ -1,5 +1,5 @@ Name:                servius-Version:             0.0.0+Version:             0.0.1 Synopsis:            Serve Shakespearean templates via Warp Homepage:            http://github.com/yesodweb/hamlet License:             BSD3@@ -15,9 +15,9 @@ Executable servius   Main-is:       servius.hs   Build-depends: base            >= 4                  && < 5-               , warp            >= 0.4                && < 0.5-               , wai-app-static  >= 0.3                && < 0.4-               , wai-extra       >= 0.4                && < 0.5+               , warp            >= 1.0                && < 1.1+               , wai-app-static  >= 1.0                && < 1.1+               , wai-extra       >= 1.0                && < 1.1                , cmdargs         >= 0.6.7                , directory       >= 1.0                , containers      >= 0.2                && < 0.5

@@ -7,12 +7,12 @@     , fileName, toFilePath     ) import Network.Wai.Handler.Warp (run)-import System.Console.CmdArgs+import System.Console.CmdArgs hiding (def) import Text.Printf (printf) import System.Directory (canonicalizePath) import Control.Monad (unless) import Network.Wai.Middleware.Autohead-import Network.Wai.Middleware.Debug+import Network.Wai.Middleware.RequestLogger import Network.Wai.Middleware.Gzip import qualified Data.Map as Map import qualified Data.ByteString.Char8 as S8@@ -53,8 +53,8 @@     let mimeMap = Map.fromList mime' `Map.union` defaultMimeTypes     docroot' <- canonicalizePath docroot     unless quiet $ printf "Serving directory %s on port %d with %s index files.\n" docroot' port (if noindex then "no" else show index)-    let middle = gzip False-               . (if verbose then debug else id)+    let middle = gzip def+               . (if verbose then logStdoutDev else id)                . autohead                . shake docroot     run port $ middle $ staticApp defaultFileServerSettings