slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: avoid a fromJust error when running with yesod devel (not working yet)

Browse Source
This commit is contained in:
Simon Michael 2013-04-05 20:59:31 -07:00
parent 7742bd2104
commit 9ffd34687a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-web/devel.hs
View File

@ -6,14 +6,20 @@ import Control.Concurrent (forkIO)
import System.Directory (doesFileExist, removeFile) import System.Directory (doesFileExist, removeFile)
import System.Exit (exitSuccess) import System.Exit (exitSuccess)
import Control.Concurrent (threadDelay) import Control.Concurrent (threadDelay)
import System.IO.Storage (withStore, putValue)
import Hledger (readJournalFile)
main :: IO () main :: IO ()
main = do main = do
putStrLn "Starting devel application" putStrLn "Starting devel application"
(port, app) <- getApplicationDev (port, app) <- getApplicationDev
forkIO $ runSettings defaultSettings forkIO $
{ settingsPort = port withStore "hledger" $ do
} app readJournalFile Nothing Nothing "dev.journal" >>= putValue "hledger" "journal"
runSettings defaultSettings
{ settingsPort = port
} app
loop loop
loop :: IO () loop :: IO ()