From 6f0f1acf7e68f8432f517c2d2b21f01a2f4d6f3e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 27 Sep 2011 16:29:43 +0000
Subject: [PATCH] fix hledger-web build error

---
 hledger-web/Hledger/Web/Handlers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs
index fcf595a01..1a088315b 100644
--- a/hledger-web/Hledger/Web/Handlers.hs
+++ b/hledger-web/Hledger/Web/Handlers.hs
@@ -516,7 +516,7 @@ handleAdd = do
    Right t -> do
     let t' = txnTieKnot t -- XXX move into balanceTransaction
     liftIO $ do ensureJournalFile journalpath
-                appendToJournalFile journalpath $ showTransaction t'
+                appendToJournalFileOrStdout journalpath $ showTransaction t'
     -- setMessage $ toHtml $ (printf "Added transaction:\n%s" (show t') :: String)
     setMessage [$hamlet|<span>Added transaction:<small><pre>#{chomp $ show t'}</pre></small>|]
     redirectParams RedirectTemporary RegisterR [("add","1")]