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