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

normalise amounts after adding them, why not

Browse Source
This commit is contained in:
Simon Michael 2008-10-18 09:02:00 +00:00
parent ebcf695240
commit cc81700d2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Amount.hs
View File

@ -136,7 +136,7 @@ sumAmounts :: [Amount] -> Amount
sumAmounts = sum . filter (not . isZeroAmount)
sumMixedAmounts :: [MixedAmount] -> MixedAmount
sumMixedAmounts = concat
sumMixedAmounts = normaliseMixedAmount . concat
nullamt = []