fix: errors: assertions: don't show actual and asserted reversed

This commit is contained in:
Simon Michael 2022-07-12 16:33:51 +01:00
parent 41234f0e10
commit e6959743f5

View File

@ -603,10 +603,10 @@ checkBalanceAssertionOneCommodityB p@Posting{paccount=assertedacct} assertedamt
assertedcomm
(if istotal then " (no other commodity balance allowed)" else "" :: String)
-- (asprecision $ astyle actualbalincommodity) -- should be the standard display precision I think
(show $ aquantity actualbalincomm)
-- (showAmount actualbalincommodity)
(show $ aquantity assertedamt)
-- (showAmount assertedamt)
(show $ aquantity actualbalincomm)
-- (showAmount actualbalincommodity)
(show $ aquantity assertedamt - aquantity actualbalincomm)
where
ass = fromJust $ pbalanceassertion p -- PARTIAL: fromJust won't fail, there is a balance assertion