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)