23 lines
648 B
Haskell
23 lines
648 B
Haskell
{-# LANGUAGE PackageImports #-}
|
|
import "hledger-web" Hledger.Web.Main (hledgerWebDev)
|
|
import Network.Wai.Handler.Warp (runSettings, defaultSettings, setPort)
|
|
import Control.Concurrent (forkIO, threadDelay)
|
|
import System.Directory (doesFileExist, removeFile)
|
|
import System.Exit (exitSuccess)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "Starting devel application"
|
|
(port, app) <- hledgerWebDev
|
|
forkIO $ runSettings (setPort port defaultSettings) app
|
|
loop
|
|
|
|
loop :: IO ()
|
|
loop = do
|
|
threadDelay 100000
|
|
e <- doesFileExist "yesod-devel/devel-terminate"
|
|
if e then terminateDevel else loop
|
|
|
|
terminateDevel :: IO ()
|
|
terminateDevel = exitSuccess
|