From 0529012574f05cd442ea969f71261d15300799f0 Mon Sep 17 00:00:00 2001 From: rnhmjoj Date: Sun, 10 May 2015 03:29:59 +0200 Subject: [PATCH] Add request logger --- src/Application.hs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/Application.hs b/src/Application.hs index 22fd4e6..301f6c6 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -15,20 +15,24 @@ import Data.Text.Lazy.Encoding (decodeUtf8) import Data.Text.Lazy (toStrict) import Web.Spock.Safe +import Network.Wai (Middleware) import Network.Wai.Middleware.Static - +import Network.Wai.Middleware.RequestLogger logStr :: String -> ActionT IO () logStr = liftIO . putStrLn -serveStatic :: FilePath -> SpockT IO () -serveStatic = middleware . staticPolicy . addBase +serveStatic :: FilePath -> Middleware +serveStatic = staticPolicy . addBase app :: Url -> UrlTable -> SpockT IO () app url' table = do - liftIO (getDataFileName "static/") >>= serveStatic + static <- liftIO (getDataFileName "static/") + + middleware (serveStatic static) + middleware logStdout get "/" $ html (render index)