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

print: don't add decimal places in assertion/assignment amounts either (#1465)

Browse Source
This commit is contained in:
Simon Michael 2021-02-04 06:46:09 -08:00
parent a91a2ed2ed
commit 0274b30742
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Data/Journal.hs
View File

@ -981,8 +981,8 @@ journalApplyCommodityStyles j@Journal{jtxns=ts, jpricedirectives=pds} =
fixtransaction t@Transaction{tpostings=ps} = t{tpostings=map fixposting ps} fixtransaction t@Transaction{tpostings=ps} = t{tpostings=map fixposting ps}
fixposting p = p{pamount=styleMixedAmount styles $ pamount p fixposting p = p{pamount=styleMixedAmount styles $ pamount p
,pbalanceassertion=fixbalanceassertion <$> pbalanceassertion p} ,pbalanceassertion=fixbalanceassertion <$> pbalanceassertion p}
-- balance assertion amounts are always displayed, eg by print, at full precision, per docs -- balance assertion amounts are always displayed (by print) at full precision, per docs
fixbalanceassertion ba = ba{baamount=setFullPrecision $ styleAmount styles $ baamount ba} fixbalanceassertion ba = ba{baamount=styleAmountExceptPrecision styles $ baamount ba}
fixpricedirective pd@PriceDirective{pdamount=a} = pd{pdamount=styleAmountExceptPrecision styles a} fixpricedirective pd@PriceDirective{pdamount=a} = pd{pdamount=styleAmountExceptPrecision styles a}
-- | Get the canonical amount styles for this journal, whether (in order of precedence): -- | Get the canonical amount styles for this journal, whether (in order of precedence):

4
hledger/test/csv.test
View File

@ -219,8 +219,8 @@ account4 the:remainder
$ ./csvtest.sh $ ./csvtest.sh
2009-09-10 Flubber Co 2009-09-10 Flubber Co
assets:myacct $50.000 = $321.000 assets:myacct $50.000 = $321
income:unknown $-50.000 = $123.000 income:unknown $-50.000 = $123
expenses:tax $0.234 ; VAT expenses:tax $0.234 ; VAT
the:remainder the:remainder

4
hledger/test/journal/parse-errors.test
View File

@ -150,8 +150,8 @@ $ hledger -f- print
equity:opening/closing balances equity:opening/closing balances
2019-12-31 closing balances 2019-12-31 closing balances
assets:a1 $-3 = $0 assets:a1 $-3 = $0.00
assets:a2 £-10 = £0 assets:a2 £-10 = £0.00
equity:opening/closing balances equity:opening/closing balances
>=0 >=0