Fix missing logger argument in main.hs

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

View File

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