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

show env in launching string

Browse Source
This commit is contained in:
Greg Weber 2011-07-10 08:49:01 -07:00
parent 0e36cd0e06
commit 642a9bfde2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scaffold/test_hs.cg
View File

@ -25,7 +25,7 @@ main = do
appEnv <- getAppEnv args appEnv <- getAppEnv args
config <- Settings.loadConfig appEnv config <- Settings.loadConfig appEnv
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
do hPutStrLn stderr $ "Application launched, listening on port " ++ show (appPort c) do hPutStrLn stderr $ (show appEnv) ++ " application launched, listening on port " ++ show (appPort c)
with~sitearg~ c $ run (appPort c) . debug with~sitearg~ c $ run (appPort c) . debug
#endif #endif