From 856f62b465374c87e8f8c42e00f541268639dfd4 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 5 Mar 2014 12:48:13 -0800
Subject: [PATCH] add: fix runtime printf error from 2nd txn on (fixes #164)

---
 hledger/Hledger/Cli/Add.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Add.hs b/hledger/Hledger/Cli/Add.hs
index 54ed43694..35f3d0bdf 100644
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@@ -96,8 +96,11 @@ getAndAddTransactions es@EntryState{..} = (do
     Nothing -> fail "urk ?"
     Just t -> do
       j <- if debug_ esOpts > 0
-           then hPrintf stderr "Skipping journal add due to debug mode.\n" >> return esJournal
-           else journalAddTransaction esJournal esOpts t >> hPrintf stderr "Saved.\n"
+           then do hPrintf stderr "Skipping journal add due to debug mode.\n"
+                   return esJournal
+           else do j' <- journalAddTransaction esJournal esOpts t
+                   hPrintf stderr "Saved.\n"
+                   return j'
       hPrintf stderr "Starting the next transaction (. or ctrl-D/ctrl-C to quit)\n"
       getAndAddTransactions es{esJournal=j, esDefDate=tdate t}
   )