Fix error message
This commit is contained in:
parent
b46caaa702
commit
83b6b39fca
@ -283,7 +283,7 @@ instance Show GEvalException where
|
|||||||
show TooManyLinesInInput = "Too many lines in the input file"
|
show TooManyLinesInInput = "Too many lines in the input file"
|
||||||
show EmptyOutput = "The output file is empty"
|
show EmptyOutput = "The output file is empty"
|
||||||
show (UnexpectedData lineNo message) = "Line " ++ (show lineNo) ++ ": Unexpected data [" ++ message ++ "]"
|
show (UnexpectedData lineNo message) = "Line " ++ (show lineNo) ++ ": Unexpected data [" ++ message ++ "]"
|
||||||
show UnexpectedMultipleOutputs = "Multiple outputs are not possible in this mode"
|
show UnexpectedMultipleOutputs = "Multiple outputs are not possible in this mode, use -o option to select an output file"
|
||||||
|
|
||||||
somethingWrongWithFilesMessage :: String -> FilePath -> String
|
somethingWrongWithFilesMessage :: String -> FilePath -> String
|
||||||
somethingWrongWithFilesMessage msg filePath = Prelude.concat
|
somethingWrongWithFilesMessage msg filePath = Prelude.concat
|
||||||
|
Loading…
Reference in New Issue
Block a user