convert: fix --rules warning

This commit is contained in:
Simon Michael 2011-06-02 22:37:45 +00:00
parent 5784587208
commit 3617bc1a79

View File

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