From 88b7c1a434b331840259236b89d6042e86250a07 Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Wed, 8 Apr 2015 22:17:50 +0200
Subject: [PATCH] Print the server url on start

---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index be73398..286c4f0 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Main where
 
 import Application
 import Breve.Common
@@ -10,5 +9,6 @@ import Network.Wai.Middleware.RequestLogger
 
 main :: IO ()
 main = do
-  (_, settings) <- serverSettings
+  (url, settings) <- serverSettings
+  putStrLn ("Serving on " ++ url)
   app (runSettings settings . logStdout)
\ No newline at end of file