cli: fix typo in previous patch

This commit is contained in:
Simon Michael 2011-05-29 19:42:37 +00:00
parent 7d46ae6141
commit c3954cad43

View File

@ -89,7 +89,7 @@ convert opts args _ = do
when (null args) $ error' "please specify a csv data file." when (null args) $ error' "please specify a csv data file."
let csvfile = head args let csvfile = head args
let let
rulesFileSpecified = isNothing $ rulesFileFromOpts opts rulesFileSpecified = isJust $ rulesFileFromOpts opts
usingStdin = csvfile == "-" usingStdin = csvfile == "-"
when (usingStdin && (not rulesFileSpecified)) $ error' "please specify a files file when converting stdin" when (usingStdin && (not rulesFileSpecified)) $ error' "please specify a files file when converting stdin"
csvparse <- parseCsv csvfile csvparse <- parseCsv csvfile