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

Print the server url on start

Browse Source
This commit is contained in:
rnhmjoj 2015-04-08 22:17:50 +02:00
parent fefa79c181
commit 88b7c1a434
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Main.hs
View File

@ -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)