slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: fix off-by-one in transaction index

Browse Source
This commit is contained in:
Simon Michael 2015-10-30 10:41:42 -07:00
parent 722e19098f
commit 0ee2ff7ab2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -443,9 +443,9 @@ transactionp = do
comment <- try followingcommentp <|> (newline >> return "") comment <- try followingcommentp <|> (newline >> return "")
let tags = tagsInComment comment let tags = tagsInComment comment
postings <- postingsp postings <- postingsp
index <- getIndex i' <- (+1) <$> getIndex
setIndex (index+1) setIndex i'
return $ txnTieKnot $ Transaction index sourcepos date edate status code description comment tags postings "" return $ txnTieKnot $ Transaction i' sourcepos date edate status code description comment tags postings ""
descriptionp = many (noneOf ";\n") descriptionp = many (noneOf ";\n")