From 0ee2ff7ab2be4413d67d4d5ff0221f16828d8523 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 30 Oct 2015 10:41:42 -0700
Subject: [PATCH] lib: fix off-by-one in transaction index

---
 hledger-lib/Hledger/Read/JournalReader.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index f6190be06..fc1cf7d0d 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -443,9 +443,9 @@ transactionp = do
   comment <- try followingcommentp <|> (newline >> return "")
   let tags = tagsInComment comment
   postings <- postingsp
-  index <- getIndex
-  setIndex (index+1)
-  return $ txnTieKnot $ Transaction index sourcepos date edate status code description comment tags postings ""
+  i' <- (+1) <$> getIndex
+  setIndex i'
+  return $ txnTieKnot $ Transaction i' sourcepos date edate status code description comment tags postings ""
 
 descriptionp = many (noneOf ";\n")