diff options
author | Clint Adams <clint@softwarefreedom.org> | 2013-04-19 17:57:46 -0400 |
---|---|---|
committer | Clint Adams <clint@softwarefreedom.org> | 2013-04-19 17:57:46 -0400 |
commit | 514ff2acff2ba9ad9f809e22fc8ed5a986410e5d (patch) | |
tree | be57afe59d966d65910b4f9336a0370f9ca18b26 /devel.hs |
Initial stab.
Diffstat (limited to 'devel.hs')
-rw-r--r-- | devel.hs | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/devel.hs b/devel.hs new file mode 100644 index 0000000..6e9e5c5 --- /dev/null +++ b/devel.hs @@ -0,0 +1,26 @@ +{-# LANGUAGE PackageImports #-} +import "sflc-ledger-reports" Application (getApplicationDev) +import Network.Wai.Handler.Warp + (runSettings, defaultSettings, settingsPort) +import Control.Concurrent (forkIO) +import System.Directory (doesFileExist, removeFile) +import System.Exit (exitSuccess) +import Control.Concurrent (threadDelay) + +main :: IO () +main = do + putStrLn "Starting devel application" + (port, app) <- getApplicationDev + forkIO $ runSettings defaultSettings + { settingsPort = port + } app + loop + +loop :: IO () +loop = do + threadDelay 100000 + e <- doesFileExist "dist/devel-terminate" + if e then terminateDevel else loop + +terminateDevel :: IO () +terminateDevel = exitSuccess |