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

imp: errors: assertions: improve layout

Browse Source
This commit is contained in:
Simon Michael 2022-07-13 17:56:17 +01:00
parent c22e9f6cc8
commit 5a343bf090
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Data/Balancing.hs
View File

@ -598,8 +598,8 @@ checkBalanceAssertionOneCommodityB p@Posting{paccount=assertedacct} assertedamt
"%s\n", "%s\n",
"This balance assertion failed.", "This balance assertion failed.",
-- "date: %s", -- "date: %s",
"In account: %-30s%s", "In account: %s",
"and commodity: %-30s%s", "and commodity: %s",
-- "display precision: %d", -- "display precision: %d",
"this balance was asserted: %s", -- (at display precision: %s)", "this balance was asserted: %s", -- (at display precision: %s)",
"but the actual balance is: %s", -- (at display precision: %s)", "but the actual balance is: %s", -- (at display precision: %s)",
@ -612,10 +612,8 @@ checkBalanceAssertionOneCommodityB p@Posting{paccount=assertedacct} assertedamt
(sourcePosPretty pos) (sourcePosPretty pos)
(textChomp ex) (textChomp ex)
-- (showDate $ postingDate p) -- (showDate $ postingDate p)
acct (if isinclusive then printf "%-30s (including subaccounts)" acct else acct)
(if isinclusive then " (including subaccounts)" else "" :: String) (if istotal then printf "%-30s (no other commodities allowed)" (T.unpack assertedcomm) else (T.unpack assertedcomm))
assertedcomm
(if istotal then " (no other commodity balance allowed)" else "" :: String)
-- (asprecision $ astyle actualbalincommodity) -- should be the standard display precision I think -- (asprecision $ astyle actualbalincommodity) -- should be the standard display precision I think
(show $ aquantity assertedamt) (show $ aquantity assertedamt)
-- (showAmount assertedamt) -- (showAmount assertedamt)