From 9ecf6b40980886537f4b9c154c7678e01fe62cbe Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Sun, 10 May 2015 03:30:14 +0200
Subject: [PATCH] Disable Spock init message

---
 src/Main.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 5e17bd0..a5244a4 100644
--- a/src/Main.hs
+++ b/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)
   
\ No newline at end of file