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)}
| otherwise = p
where otherstotal = sum $ map pamount withamounts
printerr s = unlines [s, showTransactionUnelided t]
printerr s = intercalate "\n" [s, showTransactionUnelided t]
nonzerobalanceerror :: Transaction -> String
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
"-" (line 4, column 1):
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
b 1.1
c -1

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

@ -6,7 +6,7 @@
>>>2
"-" (line 4, column 1):
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
дебит 1
кредит -2