Fix missing logger argument in main.hs
logger argument was omitted in the withSiteArg call if PRODUCTION is defined
This commit is contained in:
parent
cae65c95ff
commit
0723c19afa
@ -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)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user