diff --git a/web/src/Main.hs b/web/src/Main.hs index b62dde8..881d0a9 100644 --- a/web/src/Main.hs +++ b/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 diff --git a/web/time-wasting-thread-memorial.cabal b/web/time-wasting-thread-memorial.cabal index 49035d0..994bbd2 100644 --- a/web/time-wasting-thread-memorial.cabal +++ b/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