imp: errors: balanced: show multicommodity amounts in one line format

This commit is contained in:
Simon Michael 2022-07-11 13:55:32 +01:00
parent 6fbcbf7c6b
commit c885746aa8

View File

@ -116,11 +116,11 @@ transactionCheckBalanced BalancingOpts{commodity_styles_} t = errs
rmsg rmsg
| rsumok = "" | rsumok = ""
| not rsignsok = "real postings all have the same sign" | not rsignsok = "real postings all have the same sign"
| otherwise = "real postings' sum should be 0 but is: " ++ showMixedAmount rsumcost | otherwise = "real postings' sum should be 0 but is: " ++ showMixedAmountOneLine rsumcost
bvmsg bvmsg
| bvsumok = "" | bvsumok = ""
| not bvsignsok = "balanced virtual postings all have the same sign" | not bvsignsok = "balanced virtual postings all have the same sign"
| otherwise = "balanced virtual postings' sum should be 0 but is: " ++ showMixedAmount bvsumcost | otherwise = "balanced virtual postings' sum should be 0 but is: " ++ showMixedAmountOneLine bvsumcost
-- | Legacy form of transactionCheckBalanced. -- | Legacy form of transactionCheckBalanced.
isTransactionBalanced :: BalancingOpts -> Transaction -> Bool isTransactionBalanced :: BalancingOpts -> Transaction -> Bool