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

;refactor amountValue

Browse Source
This commit is contained in:
Simon Michael 2019-05-25 05:34:29 -07:00
parent bba9c32607
commit 69d72e8c48
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -458,8 +458,8 @@ canonicaliseAmount styles a@Amount{acommodity=c, astyle=s} = a{astyle=s'}
-- If no default valuation commodity can be found, the amount is left -- If no default valuation commodity can be found, the amount is left
-- unchanged. -- unchanged.
amountValue :: Prices -> Day -> Amount -> Amount amountValue :: Prices -> Day -> Amount -> Amount
amountValue prices d a@Amount{acommodity=c} = amountValue prices d a =
case priceLookup prices d c of case priceLookup prices d (acommodity a) of
Just v -> v{aquantity=aquantity v * aquantity a} Just v -> v{aquantity=aquantity v * aquantity a}
Nothing -> a Nothing -> a