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

fix extra newline in balance error msg

Browse Source
This commit is contained in:
Simon Michael 2010-03-09 23:06:27 +00:00
parent 41b60bbcfc
commit a6b7ef597f
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Ledger/Transaction.hs
View File

@ -139,7 +139,7 @@ balanceTransaction t@Transaction{tpostings=ps}
balance p | isReal p && not (hasAmount p) = p{pamount = costOfMixedAmount (-otherstotal)} balance p | isReal p && not (hasAmount p) = p{pamount = costOfMixedAmount (-otherstotal)}
| otherwise = p | otherwise = p
where otherstotal = sum $ map pamount withamounts where otherstotal = sum $ map pamount withamounts
printerr s = unlines [s, showTransactionUnelided t] printerr s = intercalate "\n" [s, showTransactionUnelided t]
nonzerobalanceerror :: Transaction -> String nonzerobalanceerror :: Transaction -> String
nonzerobalanceerror t = printf "could not balance this transaction (%s%s%s)" rmsg sep bvmsg nonzerobalanceerror t = printf "could not balance this transaction (%s%s%s)" rmsg sep bvmsg

2
tests/unbalanced.test
View File

@ -6,7 +6,7 @@
>>>2 >>>2
"-" (line 4, column 1): "-" (line 4, column 1):
unexpected end of input unexpected end of input
could not balance this transaction (real postings are off by 0.1): could not balance this transaction (real postings are off by 0.1)
2009/01/01 a 2009/01/01 a
b 1.1 b 1.1
c -1 c -1

2
tests/unicode-error-message.test
View File

@ -6,7 +6,7 @@
>>>2 >>>2
"-" (line 4, column 1): "-" (line 4, column 1):
unexpected end of input unexpected end of input
could not balance this transaction (real postings are off by -1): could not balance this transaction (real postings are off by -1)
2009/01/01 broken entry 2009/01/01 broken entry
дебит 1 дебит 1
кредит -2 кредит -2