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

lib: Do not do any valuation with --value=cost, perform AtEnd valuation with --value=cost,COMM.

Browse Source
This commit is contained in:
Stephen Morgan 2021-03-10 12:42:01 +11:00
parent 1702b8cca4
commit fb02d86884
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Reports/ReportOptions.hs
View File

@ -456,7 +456,7 @@ valuationTypeFromRawOpts rawopts = (costing, valuation)
| n == "value" = Just $ valueopt v | n == "value" = Just $ valueopt v
| otherwise = Nothing | otherwise = Nothing
valueopt v valueopt v
| t `elem` ["cost","c"] = (Cost, Just $ AtThen mc) -- keep supporting --value=cost,COMM for now | t `elem` ["cost","c"] = (Cost, AtEnd . Just <$> mc) -- keep supporting --value=cost,COMM for now
| t `elem` ["then" ,"t"] = (NoCost, Just $ AtThen mc) | t `elem` ["then" ,"t"] = (NoCost, Just $ AtThen mc)
| t `elem` ["end" ,"e"] = (NoCost, Just $ AtEnd mc) | t `elem` ["end" ,"e"] = (NoCost, Just $ AtEnd mc)
| t `elem` ["now" ,"n"] = (NoCost, Just $ AtNow mc) | t `elem` ["now" ,"n"] = (NoCost, Just $ AtNow mc)