simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 02:37:12 +03:00
Code Issues Projects Releases Wiki Activity

web: don't use wai-handler-launch with yesod devel

Browse Source
This commit is contained in:
Simon Michael 2013-04-20 19:57:19 -07:00
parent 0f13d40ca5
commit 9148bd8e8c
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-web/devel.hs
View File

@ -1,7 +1,6 @@
{-# LANGUAGE PackageImports #-}
import "hledger-web" Application (getApplicationDev)
import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort)
import Network.Wai.Handler.Launch (run, runUrl, runUrlPort)
import Control.Concurrent (forkIO)
import System.Directory (doesFileExist, removeFile)
import System.Exit (exitSuccess)
@ -12,10 +11,9 @@ main = do
putStrLn "Starting devel application"
(port, app) <- getApplicationDev
forkIO $
-- runSettings defaultSettings
-- { settingsPort = port
-- } app
run app
runSettings defaultSettings
{ settingsPort = port
} app
loop
loop :: IO ()