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