show env in launching string

2011-07-10 08:49:01 -07:00 · 2011-07-10 08:49:01 -07:00 · 642a9bfde2
commit 642a9bfde2
parent 0e36cd0e06
1 changed files with 1 additions and 1 deletions
--- a/scaffold/test_hs.cg
+++ b/scaffold/test_hs.cg
@ -25,7 +25,7 @@ main = do
    appEnv <- getAppEnv args
    config <- Settings.loadConfig appEnv
    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
 #endif