Fix scaffolded devel.hs

This commit is contained in:
Michael Snoyman 2012-02-01 14:38:16 +02:00
parent 068003cb36
commit 9ce1e08a75

View File

@ -1,7 +1,7 @@
{-# LANGUAGE PackageImports #-}
import "~project~" Application (getApplicationDev)
import Network.Wai.Handler.Warp
(runSettings, defaultSettings, settingsPort, settingsHost)
(runSettings, defaultSettings, settingsPort)
import Control.Concurrent (forkIO)
import System.Directory (doesFileExist, removeFile)
import System.Exit (exitSuccess)
@ -13,7 +13,6 @@ main = do
(port, app) <- getApplicationDev
forkIO $ runSettings defaultSettings
{ settingsPort = port
, settingsHost = "0.0.0.0"
} app
loop