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

;lib: more docs for unifyMixedAmount

Browse Source 
[ci skip]
This commit is contained in:
Simon Michael 2019-11-18 17:22:42 -08:00
parent 69ee21cf16
commit 4cb2a03f7f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Reports/BalanceReport.hs
View File

@ -196,6 +196,10 @@ brNegate (is, tot) = (map brItemNegate is, -tot)
brItemNegate (a, a', d, amt) = (a, a', d, -amt) brItemNegate (a, a', d, amt) = (a, a', d, -amt)
-- | Helper to unify a MixedAmount to a single commodity value. -- | Helper to unify a MixedAmount to a single commodity value.
-- Like normaliseMixedAmount, this consolidates amounts of the same commodity
-- and discards zero amounts; but this one insists on simplifying to
-- a single commodity, and will throw a program-terminating error if
-- this is not possible.
unifyMixedAmount :: MixedAmount -> Amount unifyMixedAmount :: MixedAmount -> Amount
unifyMixedAmount mixedAmount = foldl combine (num 0) (amounts mixedAmount) unifyMixedAmount mixedAmount = foldl combine (num 0) (amounts mixedAmount)
where where