imp: simplify bad account type error message

This commit is contained in:
Simon Michael 2025-07-09 12:00:13 -07:00
parent 57b1e18757
commit b23af9275d

View File

@ -511,7 +511,7 @@ parseTypeCodes s =
([],[]) -> Left help
([],ts) -> Right $ Type ts
where
help = "type:'s argument should be one or more of " ++ accountTypeChoices False ++ " (case insensitive)."
help = "type:'s argument should be one or more of " ++ accountTypeChoices False
accountTypeChoices :: Bool -> String
accountTypeChoices allowlongform =