simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-09 00:15:48 +03:00
Code Issues Projects Releases Wiki Activity

clarify similarAmountsOp doc

Browse Source
This commit is contained in:
Simon Michael 2014-10-18 10:45:17 -07:00
parent c2644f4c48
commit e888be0bf4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-lib/Hledger/Data/Amount.hs
View File

@ -162,6 +162,7 @@ amt @@ priceamt = amt{aprice=TotalPrice priceamt}
-- precision set to the highest of either amount.
-- Prices are ignored and discarded.
similarAmountsOp :: (Quantity -> Quantity -> Quantity) -> Amount -> Amount -> Amount
-- Remember: the caller is responsible for ensuring both amounts have the same commodity.
similarAmountsOp op Amount{acommodity=_, aquantity=q1, astyle=AmountStyle{asprecision=p1}}
Amount{acommodity=c2, aquantity=q2, astyle=s2@AmountStyle{asprecision=p2}} =
-- trace ("a1:"++showAmountDebug a1) $ trace ("a2:"++showAmountDebug a2) $ traceWith (("= :"++).showAmountDebug)