rnhmjoj/breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disable Spock init message

Browse Source
This commit is contained in:
rnhmjoj 2015-05-10 03:30:14 +02:00
parent 0529012574
commit 9ecf6b4098
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.hs
View File

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