From 642a9bfde29e138ea7386fe8f486a8cd6769bdde Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Sun, 10 Jul 2011 08:49:01 -0700
Subject: [PATCH] show env in launching string

---
 scaffold/test_hs.cg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scaffold/test_hs.cg b/scaffold/test_hs.cg
index 072be746..2e54d119 100644
--- 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