Print the server url on start

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)