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

Fix scaffolded devel.hs

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-01 14:38:16 +02:00
parent 068003cb36
commit 9ce1e08a75
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod/scaffold/devel.hs.cg
View File

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