hledger/hledger-web/devel.hs
2012-03-30 19:31:53 +00:00

37 lines
1.1 KiB
Haskell

{-# LANGUAGE PackageImports #-}
import "hledger-web" Hledger.Web.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)
-- import Network.Wai.Middleware.Debug (debugHandle)
-- import Yesod.Logger (logString, logLazyText, flushLogger, makeLogger)
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
-- logString logger $ (show env) ++ " application launched, listening on port " ++ show (appPort c)
-- withApp c logger opts $ run (appPort c) . debugHandle (logHandle logger)
-- flushLogger logger
-- where
-- logHandle logger msg = logLazyText logger msg >> flushLogger logger