Disable Spock init message

src/Main.hs

@@ -5,10 +5,10 @@ import Breve.Settings
 import Breve.UrlTable
 
 import Web.Spock.Safe
-
+import Network.Wai.Handler.Warp (run)
 
 runBreve :: Int -> SpockT IO () -> IO ()
-runBreve port app = runSpock port (spockT id app)
+runBreve port app = spockAsApp (spockT id app) >>= run port
 
 
 main :: IO ()
@@ -17,7 +17,6 @@ main = do
               , bindPort
               , urlTable } <- settings
   table                    <- load urlTable
-
   putStrLn ("Serving on " ++ bindUrl)
   runBreve bindPort (app bindUrl table)