Removes use of deprecated logHandleDev.

This commit is contained in:
Bryan Richter 2012-01-26 21:40:31 -08:00
parent 60faea0aba
commit 9290a11ab2

View File

@ -13,7 +13,7 @@ import Yesod.Default.Main
import Yesod.Default.Handlers
#if DEVELOPMENT
import Yesod.Logger (Logger, logBS)
import Network.Wai.Middleware.RequestLogger (logHandleDev)
import Network.Wai.Middleware.RequestLogger (logCallbackDev)
#else
import Yesod.Logger (Logger, logBS, toProduction)
import Network.Wai.Middleware.RequestLogger (logHandle)
@ -46,7 +46,7 @@ getApplication conf logger = do
return $ logWare app
where
#ifdef DEVELOPMENT
logWare = logHandleDev (logBS setLogger)
logWare = logCallbackDev (logBS setLogger)
setLogger = logger
#else
setLogger = toProduction logger -- by default the logger is set for development