Devel server prints URL, not just port (#306)

2012-04-03 07:02:12 +03:00 · 2012-04-03 07:02:12 +03:00 · c3f58479f9
commit c3f58479f9
parent 4d7355cf33
1 changed files with 1 additions and 1 deletions
--- a/yesod-default/Yesod/Default/Main.hs
+++ b/yesod-default/Yesod/Default/Main.hs
@ -92,6 +92,6 @@ defaultDevelApp load getApp = do
    conf   <- load
    logger <- defaultDevelopmentLogger
    let p = appPort conf
-    logString logger $ "Devel application launched, listening on port " ++ show p
+    logString logger $ "Devel application launched: http://localhost:" ++ show p
    app <- getApp conf logger
    return (p, app)