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

web: disable request logging in production builds, for now

Browse Source
This commit is contained in:
Simon Michael 2013-04-19 14:45:25 -07:00
parent 2ce60a211a
commit 1a57dbb65c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Application.hs
View File

@ -10,7 +10,7 @@ import Import
import Yesod.Default.Config import Yesod.Default.Config
import Yesod.Default.Main import Yesod.Default.Main
import Yesod.Default.Handlers import Yesod.Default.Handlers
import Network.Wai.Middleware.RequestLogger (logStdout, logStdoutDev) import Network.Wai.Middleware.RequestLogger (logStdoutDev) -- , logStdout
import Network.HTTP.Conduit (newManager, def) import Network.HTTP.Conduit (newManager, def)
-- Import all relevant handler modules here. -- Import all relevant handler modules here.
@ -44,7 +44,7 @@ makeApplication j conf = do
return $ logWare app return $ logWare app
where where
logWare = if development then logStdoutDev logWare = if development then logStdoutDev
else logStdout else id -- logStdout
makeFoundation :: AppConfig DefaultEnv Extra -> IO App makeFoundation :: AppConfig DefaultEnv Extra -> IO App
makeFoundation conf = do makeFoundation conf = do