From 9ffd34687a6ebb33c00a3d92e50f75307817dd0d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 5 Apr 2013 20:59:31 -0700
Subject: [PATCH] web: avoid a fromJust error when running with yesod devel
 (not working yet)

---
 hledger-web/devel.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

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