imp: errors: balancednoautoconversion: now different from balanced
This commit is contained in:
parent
c885746aa8
commit
77f29aeee9
@ -157,7 +157,14 @@ balanceTransactionHelper bopts t = do
|
|||||||
if infer_transaction_prices_ bopts then inferBalancingPrices t else t
|
if infer_transaction_prices_ bopts then inferBalancingPrices t else t
|
||||||
case transactionCheckBalanced bopts t' of
|
case transactionCheckBalanced bopts t' of
|
||||||
[] -> Right (txnTieKnot t', inferredamtsandaccts)
|
[] -> Right (txnTieKnot t', inferredamtsandaccts)
|
||||||
errs -> Left $ transactionBalanceError t' errs
|
errs -> Left $ transactionBalanceError t' errs'
|
||||||
|
where
|
||||||
|
errs' = errs ++
|
||||||
|
[ "inference of conversion costs has been disallowed"
|
||||||
|
| ismulticommodity && not (infer_transaction_prices_ bopts)
|
||||||
|
]
|
||||||
|
where
|
||||||
|
ismulticommodity = (length $ mconcat $ map (maCommodities . pamount) $ tpostings t') > 1
|
||||||
|
|
||||||
-- | Generate a transaction balancing error message, given the transaction
|
-- | Generate a transaction balancing error message, given the transaction
|
||||||
-- and one or more suberror messages.
|
-- and one or more suberror messages.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user