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 /src | |
| parent | 5f737f2ebbd0fdaf5013b8de95e59ab0bd9098f2 (diff) | |
Add request logging from servant.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |