haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yesod devel has debug output

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-22 17:35:23 +03:00
parent 507ad4a772
commit 15db754294
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod/scaffold/Application.hs.cg
View File

@ -12,10 +12,11 @@ import Foundation
import Settings import Settings
import Yesod.Static import Yesod.Static
import Yesod.Auth import Yesod.Auth
import Yesod.Logger (makeLogger, flushLogger, Logger) import Yesod.Logger (makeLogger, flushLogger, Logger, logString, logLazyText)
import Database.Persist.~importGenericDB~ import Database.Persist.~importGenericDB~
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Data.Dynamic (Dynamic, toDyn) import Data.Dynamic (Dynamic, toDyn)
import Network.Wai.Middleware.Debug (debugHandle)
#ifndef WINDOWS #ifndef WINDOWS
import qualified System.Posix.Signals as Signal import qualified System.Posix.Signals as Signal
@ -72,5 +73,8 @@ withDevelAppPort =
conf <- Settings.loadConfig Settings.Development conf <- Settings.loadConfig Settings.Development
let port = appPort conf let port = appPort conf
logger <- makeLogger logger <- makeLogger
with~sitearg~ conf logger $ \app -> f (port, app) logString logger $ "Devel application launched, listening on port " ++ show port
with~sitearg~ conf logger $ \app -> f (port, debugHandle (logHandle logger) app)
flushLogger logger flushLogger logger
where
logHandle logger msg = logLazyText logger msg >> flushLogger logger