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

Fix missing logger argument in main.hs

Browse Source 
logger argument was omitted in the withSiteArg call if PRODUCTION is
defined
This commit is contained in:
patrick brisbin 2011-09-10 20:37:11 -04:00
parent cae65c95ff
commit 0723c19afa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod/scaffold/main.hs.cg
View File

@ -19,7 +19,7 @@ main = do
config <- Settings.loadConfig env config <- Settings.loadConfig env
let c = if (port args) /= 0 then config {appPort = (port args) } else config let c = if (port args) /= 0 then config {appPort = (port args) } else config
#if PRODUCTION #if PRODUCTION
with~sitearg~ c $ run (appPort c) with~sitearg~ c logger $ run (appPort c)
#else #else
logString logger $ (show env) ++ " application launched, listening on port " ++ show (appPort c) logString logger $ (show env) ++ " application launched, listening on port " ++ show (appPort c)
with~sitearg~ c logger $ run (appPort c) . debugHandle (logHandle logger) with~sitearg~ c logger $ run (appPort c) . debugHandle (logHandle logger)