Fix scaffolded devel.hs
This commit is contained in:
parent
068003cb36
commit
9ce1e08a75
@ -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
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user