haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Warp changes

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-01 12:56:13 +02:00
parent c58a938e63
commit d532702da3
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-default/Yesod/Default/Main.hs
View File

@ -10,7 +10,7 @@ import Yesod.Default.Config
import Yesod.Logger (Logger, defaultDevelopmentLogger, logString) import Yesod.Logger (Logger, defaultDevelopmentLogger, logString)
import Network.Wai (Application) import Network.Wai (Application)
import Network.Wai.Handler.Warp import Network.Wai.Handler.Warp
(runSettings, defaultSettings, settingsPort, settingsHost) (runSettings, defaultSettings, settingsPort)
import System.Directory (doesDirectoryExist, removeDirectoryRecursive) import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
import Network.Wai.Middleware.Gzip (gzip, GzipFiles (GzipCacheFolder), gzipFiles, def) import Network.Wai.Middleware.Gzip (gzip, GzipFiles (GzipCacheFolder), gzipFiles, def)
import Network.Wai.Middleware.Autohead (autohead) import Network.Wai.Middleware.Autohead (autohead)
@ -46,8 +46,7 @@ defaultMain load getApp = do
logger <- defaultDevelopmentLogger logger <- defaultDevelopmentLogger
app <- getApp config logger app <- getApp config logger
runSettings defaultSettings runSettings defaultSettings
{ settingsHost = "0.0.0.0" { settingsPort = appPort config
, settingsPort = appPort config
} app } app
-- | Run your application continously, listening for SIGINT and exiting -- | Run your application continously, listening for SIGINT and exiting