simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 18:29:36 +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 #-} {-# LANGUAGE PackageImports #-}
import "hledger-web" Application (getApplicationDev) import "hledger-web" Application (getApplicationDev)
import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort) import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort)
import Network.Wai.Handler.Launch (run, runUrl, runUrlPort)
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)
@ -12,10 +11,9 @@ main = do
putStrLn "Starting devel application" putStrLn "Starting devel application"
(port, app) <- getApplicationDev (port, app) <- getApplicationDev
forkIO $ forkIO $
-- runSettings defaultSettings runSettings defaultSettings
-- { settingsPort = port { settingsPort = port
-- } app } app
run app
loop loop
loop :: IO () loop :: IO ()