;add then and t to --value's error message
[ci skip]
This commit is contained in:
parent
05814e6fe7
commit
ae9d8d6e56
@ -365,7 +365,7 @@ valuationTypeFromRawOpts = lastMay . collectopts valuationfromrawopt
|
|||||||
| otherwise =
|
| otherwise =
|
||||||
case parsedateM t of
|
case parsedateM t of
|
||||||
Just d -> AtDate d mc
|
Just d -> AtDate d mc
|
||||||
Nothing -> usageError $ "could not parse \""++t++"\" as valuation type, should be: cost|end|now|c|e|n|YYYY-MM-DD"
|
Nothing -> usageError $ "could not parse \""++t++"\" as valuation type, should be: cost|then|end|now|c|t|e|n|YYYY-MM-DD"
|
||||||
where
|
where
|
||||||
-- parse --value's value: TYPE[,COMM]
|
-- parse --value's value: TYPE[,COMM]
|
||||||
(t,c') = break (==',') v
|
(t,c') = break (==',') v
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user