convert: fix --rules warning
This commit is contained in:
parent
5784587208
commit
3617bc1a79
@ -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 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
|
csvparse <- parseCsv csvfile
|
||||||
let records = case csvparse of
|
let records = case csvparse of
|
||||||
Left e -> error' $ show e
|
Left e -> error' $ show e
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user