slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

api: add request logging

Browse Source
This commit is contained in:
Simon Michael 2016-09-22 11:56:38 -07:00
parent c53005f121
commit 3efa123812
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-api/hledger-api.cabal
View File

@ -64,5 +64,6 @@ executable hledger-api
, text , text
, transformers , transformers
, wai , wai
, wai-extra
, warp , warp
default-language: Haskell2010 default-language: Haskell2010

5
hledger-api/hledger-api.hs
View File

@ -22,6 +22,7 @@ import Data.Swagger
import Data.Text hiding (map,reverse) import Data.Text hiding (map,reverse)
import Network.Wai as Wai import Network.Wai as Wai
import Network.Wai.Handler.Warp as Warp import Network.Wai.Handler.Warp as Warp
import Network.Wai.Middleware.RequestLogger
import Safe import Safe
import Servant import Servant
import Servant.Swagger 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 "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 "and file server http://localhost:%d for %s/\n" p d
printf "Press ctrl-c to quit\n" printf "Press ctrl-c to quit\n"
Warp.run p $ hledgerApiApp d j Warp.run p $
logStdout $
hledgerApiApp d j
type HledgerApi = type HledgerApi =
"api" :> "v1" :> "api" :> "v1" :>

1
hledger-api/package.yaml
View File

@ -45,6 +45,7 @@ dependencies:
- text - text
- transformers - transformers
- wai - wai
- wai-extra
- warp - warp
executables: executables:
hledger-api: hledger-api: