From c3f58479f9dff530ac8d90cb41d2bfbc9124adb8 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 3 Apr 2012 07:02:12 +0300
Subject: [PATCH] Devel server prints URL, not just port (#306)

---
 yesod-default/Yesod/Default/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-default/Yesod/Default/Main.hs b/yesod-default/Yesod/Default/Main.hs
index 9eb131ca..199b1f1d 100644
--- 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)