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

Add Ledger.Amount.convertMixedAmountTo function

Browse Source
This commit is contained in:
Roman Cheplyaka 2009-09-26 22:52:30 +00:00
parent 34506f3518
commit 5c23ebd01b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Ledger/Amount.hs
View File

@ -97,6 +97,11 @@ costOfAmount (Amount _ q (Just price))
| otherwise = Amount pc (pq*q) Nothing | otherwise = Amount pc (pq*q) Nothing
where (Amount pc pq _) = head $ amounts price where (Amount pc pq _) = head $ amounts price
-- | Convert an amount to the specified commodity using the appropriate
-- exchange rate (which is currently always 1).
convertAmountTo :: Commodity -> Amount -> Amount
convertAmountTo c2 (Amount c1 q _) = Amount c2 (q * conversionRate c1 c2) Nothing
-- | Get the string representation of an amount, based on its commodity's -- | Get the string representation of an amount, based on its commodity's
-- display settings. -- display settings.
showAmount :: Amount -> String showAmount :: Amount -> String