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

This commit is contained in:
Stephen Morgan 2021-03-10 12:42:01 +11:00
parent 1702b8cca4
commit fb02d86884

View File

@ -456,7 +456,7 @@ valuationTypeFromRawOpts rawopts = (costing, valuation)
| n == "value" = Just $ valueopt v
| otherwise = Nothing
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` ["end" ,"e"] = (NoCost, Just $ AtEnd mc)
| t `elem` ["now" ,"n"] = (NoCost, Just $ AtNow mc)