;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