From 3efa12381277ca5e2ab572eecc4c6f94bb083e9b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 22 Sep 2016 11:56:38 -0700
Subject: [PATCH] api: add request logging

---
 hledger-api/hledger-api.cabal | 1 +
 hledger-api/hledger-api.hs    | 5 ++++-
 hledger-api/package.yaml      | 1 +
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/hledger-api/hledger-api.cabal b/hledger-api/hledger-api.cabal
index b777a4fb2..5654d2e55 100644
--- a/hledger-api/hledger-api.cabal
+++ b/hledger-api/hledger-api.cabal
@@ -64,5 +64,6 @@ executable hledger-api
     , text
     , transformers
     , wai
+    , wai-extra
     , warp
   default-language: Haskell2010
diff --git a/hledger-api/hledger-api.hs b/hledger-api/hledger-api.hs
index 28e6c1b3c..b93a62c04 100644
--- a/hledger-api/hledger-api.hs
+++ b/hledger-api/hledger-api.hs
@@ -22,6 +22,7 @@ import           Data.Swagger
 import           Data.Text hiding (map,reverse)
 import           Network.Wai as Wai
 import           Network.Wai.Handler.Warp as Warp
+import           Network.Wai.Middleware.RequestLogger
 import           Safe
 import           Servant
 import           Servant.Swagger
@@ -96,7 +97,9 @@ serveApi p d f j = do
   printf "Starting web api http://localhost:%d/api/v1 for %s\n" p f
   printf "and file server  http://localhost:%d        for %s/\n" p d
   printf "Press ctrl-c to quit\n"
-  Warp.run p $ hledgerApiApp d j
+  Warp.run p $
+    logStdout $
+    hledgerApiApp d j
 
 type HledgerApi =
   "api" :> "v1" :>
diff --git a/hledger-api/package.yaml b/hledger-api/package.yaml
index dcdfbe5ae..04783f1bb 100644
--- a/hledger-api/package.yaml
+++ b/hledger-api/package.yaml
@@ -45,6 +45,7 @@ dependencies:
 - text
 - transformers
 - wai
+- wai-extra
 - warp
 executables:
   hledger-api: