convert: use full option name in error message

This commit is contained in:
Simon Michael 2011-09-27 23:54:49 +00:00
parent 780dc878c7
commit 992ce48093

View File

@ -86,7 +86,7 @@ convert opts = do
usingStdin = csvfile == "-" usingStdin = csvfile == "-"
rulesFileSpecified = isJust $ rules_file_ opts rulesFileSpecified = isJust $ rules_file_ opts
rulesfile = rulesFileFor opts csvfile rulesfile = rulesFileFor opts csvfile
when (usingStdin && (not rulesFileSpecified)) $ error' "please use --rules to specify a rules file when converting stdin" when (usingStdin && (not rulesFileSpecified)) $ error' "please use --rules-file to specify a rules file when converting stdin"
csvparse <- parseCsv csvfile csvparse <- parseCsv csvfile
let records = case csvparse of let records = case csvparse of
Left e -> error' $ show e Left e -> error' $ show e