From 1c6cf15cb9ad7663d12f4cea6600a7929d333dee Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kjetil.orbekk@gmail.com>
Date: Fri, 9 Oct 2015 22:16:12 -0400
Subject: Add request logging from servant.

---
 photos.cabal | 1 +
 src/Main.hs  | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3