Remove unnecessary debug output

This commit is contained in:
Michael Snoyman 2012-10-03 22:45:08 +02:00
parent e28f330711
commit 4ea4cefaf2

View File

@ -37,7 +37,6 @@ defaultMain :: (Show env, Read env)
defaultMain load getApp = do
config <- load
app <- getApp config
print $ appHost config
runSettings defaultSettings
{ settingsPort = appPort config
, settingsHost = appHost config