From f30deee1970111700bd0cde86f671533528d9b30 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 3 Jul 2014 09:37:02 -0700
Subject: [PATCH] web: fix compilation after recent lib changes

---
 hledger-web/Application.hs      | 2 +-
 hledger-web/Handler/Post.hs     | 2 +-
 hledger-web/Hledger/Web/Main.hs | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-web/Application.hs b/hledger-web/Application.hs
index 1114ade83..d49e888d2 100644
--- a/hledger-web/Application.hs
+++ b/hledger-web/Application.hs
@@ -77,7 +77,7 @@ makeFoundation conf = do
 getApplicationDev :: IO (Int, Application)
 getApplicationDev = do
   f <- journalFilePathFromOpts defcliopts
-  j <- either error' id `fmap` readJournalFile Nothing Nothing f
+  j <- either error' id `fmap` readJournalFile Nothing Nothing True f
   defaultDevelApp loader (makeApplication defwebopts j)
   where
     loader = Yesod.Default.Config.loadConfig (configSettings Development)
diff --git a/hledger-web/Handler/Post.hs b/hledger-web/Handler/Post.hs
index 6a5c4a3cd..adb7e8cad 100644
--- a/hledger-web/Handler/Post.hs
+++ b/hledger-web/Handler/Post.hs
@@ -125,7 +125,7 @@ handleEdit = do
        setMessage "No change"
        redirect JournalR
      else do
-      jE <- liftIO $ readJournal Nothing Nothing (Just journalpath) tnew
+      jE <- liftIO $ readJournal Nothing Nothing True (Just journalpath) tnew
       either
        (\e -> do
           setMessage $ toHtml e
diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
index 2c5ec361f..27a6f1ceb 100644
--- a/hledger-web/Hledger/Web/Main.hs
+++ b/hledger-web/Hledger/Web/Main.hs
@@ -49,7 +49,7 @@ runWith opts
 
 withJournalDo' :: WebOpts -> (WebOpts -> Journal -> IO ()) -> IO ()
 withJournalDo' opts cmd = do
-  journalFilePathFromOpts (cliopts_ opts) >>= readJournalFile Nothing Nothing >>=
+  journalFilePathFromOpts (cliopts_ opts) >>= readJournalFile Nothing Nothing True >>=
     either error' (cmd opts . journalApplyAliases (aliasesFromOpts $ cliopts_ opts))
 
 -- | The web command.