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

imp: ui: round amounts to display precision as before (precisiongeddon)

Browse Source
This commit is contained in:
Simon Michael 2023-11-14 13:22:35 -08:00
parent 96db4a1b97
commit 6bd862efbf
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-ui/Hledger/UI/UIScreens.hs
View File

@ -159,7 +159,9 @@ asUpdateHelper rspec0 d copts roptsModify extraquery j ass = dbgui "asUpdateHelp
displayitems = map displayitem items displayitems = map displayitem items
where where
-- run the report -- run the report
(items, _) = balanceReport rspec j (items, _) = styleAmounts styles $ balanceReport rspec j
where
styles = journalCommodityStylesWith HardRounding j
-- pre-render a list item -- pre-render a list item
displayitem (fullacct, shortacct, indent, bal) = displayitem (fullacct, shortacct, indent, bal) =
@ -267,7 +269,9 @@ rsUpdate uopts d j rss@RSS{_rssAccount, _rssForceInclusive, _rssList=oldlist} =
& reportSpecSetFutureAndForecast (forecast_ $ inputopts_ copts) & reportSpecSetFutureAndForecast (forecast_ $ inputopts_ copts)
-- gather transactions to display -- gather transactions to display
items = accountTransactionsReport rspec' j thisacctq items = styleAmounts styles $ accountTransactionsReport rspec' j thisacctq
where
styles = journalCommodityStylesWith HardRounding j
items' = items' =
(if empty_ ropts then id else filter (not . mixedAmountLooksZero . fifth6)) $ -- without --empty, exclude no-change txns (if empty_ ropts then id else filter (not . mixedAmountLooksZero . fifth6)) $ -- without --empty, exclude no-change txns
reverse -- most recent last reverse -- most recent last