Log requests to standard out

web/src/Main.hs

@@ -1,10 +1,11 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Main where
 
-import qualified Database.SQLite.Simple as Db
-import qualified Web.Spock.Safe         as S hiding (head)
-import Network.Wai.Middleware.Static
-import qualified Within.DBMemorial.Post as Post
+import qualified Database.SQLite.Simple               as Db
+import qualified Network.Wai.Middleware.RequestLogger as RequestLogger
+import qualified Network.Wai.Middleware.Static        as Static
+import qualified Web.Spock.Safe                       as S hiding (head)
+import qualified Within.DBMemorial.Post               as Post
 
 main :: IO ()
 main = do
@@ -16,6 +17,7 @@ main = do
 
     -- Set up the URL router
     S.runSpock 5000 $ S.spockT id $ do
-         S.middleware (staticPolicy (addBase "public"))
+         S.middleware $ Static.staticPolicy $ Static.addBase "public"
+         S.middleware $ RequestLogger.logStdout
          S.get S.root $
            S.text $ Post.body h

web/time-wasting-thread-memorial.cabal

@@ -63,6 +63,7 @@ executable time-wasting-thread-memorial
                      , text >=1.2.1.1
                      , blaze-html >=0.8.0.2
                      , wai-middleware-static >=0.7.0.1
+                     , wai-extra >=1.3.0
 
   -- Directories containing source files.
   hs-source-dirs:      src