maid 2010.9.9 → 2010.9.9.1

raw patch · 2 files changed

+7/−7 lines, 2 filesdep +hack-handler-happstackdep −hack-handler-hyena

Dependencies added: hack-handler-happstack

Dependencies removed: hack-handler-hyena

Files

• maid.cabal +2/−2
• src/maid.hs +5/−5

@@ -1,5 +1,5 @@ Name:                 maid-Version:              2010.9.9+Version:              2010.9.9.1 Build-type:           Simple Synopsis:             A simple static web server Description:@@ -23,7 +23,7 @@                     , haskell98                     , hack-contrib >= 2010.1.26                     , data-default-                    , hack-handler-hyena+                    , hack-handler-happstack                     , hack                     , containers                     , moe

@@ -1,7 +1,7 @@ {-# LANGUAGE NamedFieldPuns, QuasiQuotes #-}  -import Hack.Handler.Hyena+import Hack.Handler.Happstack import System (getArgs) import MPS.Env hiding (div, log) import MPS.TH@@ -12,7 +12,7 @@ import Hack.Contrib.Middleware.Config import Hack.Contrib.Middleware.ContentLength import Hack.Contrib.Middleware.Static--- import Hack.Contrib.Middleware.SimpleAccessLogger+import Hack.Contrib.Middleware.SimpleAccessLogger import Hack.Contrib.Middleware.UserMime import Hack.Contrib.Mime import Hack.Contrib.Utils (use, unescape_uri)@@ -67,7 +67,7 @@       , list_dir       ] -{-+ log :: String -> IO () log x = jailed - putStrLn x   where@@ -78,14 +78,14 @@     jailed :: IO a -> IO a     jailed io = do       withMVar sync_lock (const io)--} + middleware_stack :: [Middleware] middleware_stack =   [     no_favicon   , content_length---  , simple_access_logger - Just log+  , simple_access_logger - Just log   , user_mime - mime_types.toAscList.map_fst (drop 1)   -- , \app env -> do   --   r <- app env