diff options
author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2015-10-09 22:16:12 -0400 |
---|---|---|
committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2015-10-09 22:16:12 -0400 |
commit | 1c6cf15cb9ad7663d12f4cea6600a7929d333dee (patch) | |
tree | 0a89e53c99019b9410e5938979de6b4a388cdc40 | |
parent | 5f737f2ebbd0fdaf5013b8de95e59ab0bd9098f2 (diff) |
Add request logging from servant.
-rw-r--r-- | photos.cabal | 1 | ||||
-rw-r--r-- | src/Main.hs | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/photos.cabal b/photos.cabal index 2dd843e..f953328 100644 --- a/photos.cabal +++ b/photos.cabal @@ -26,6 +26,7 @@ executable photos , aeson , warp , wai + , wai-extra , hflags , directory , transformers diff --git a/src/Main.hs b/src/Main.hs index 3eed3cc..fcdf9ea 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -18,6 +18,7 @@ import Data import PhotoStore import Control.Monad.IO.Class import Control.Monad.Trans.Either +import Network.Wai.Middleware.RequestLogger defineFlag "port" (8081 :: Int) "Port to serve on" defineFlag "host" ("*6" :: String) "Host to serve on (*6 for ipv6 mode)" @@ -63,7 +64,7 @@ photoApi :: Proxy PhotoApi photoApi = Proxy app :: Application -app = serve photoApi server +app = logStdoutDev $ serve photoApi server port = 8081 settings :: Settings |