diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-04-15 11:59:48 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-04-15 11:59:48 +0200 |
| commit | 76b051f7b44f0df850aafe2f57a44f0486b8b282 (patch) | |
| tree | 967ff2042c00e3bceb531a13f9d8c8d84530c0e9 /src | |
| parent | 8e0032940fc385844674bc482efde5e24aeed28f (diff) | |
Fixed shadowing warnings
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Error.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs index 4ead6aba8..637db6187 100644 --- a/src/Text/Pandoc/Error.hs +++ b/src/Text/Pandoc/Error.hs @@ -57,7 +57,7 @@ data PandocError = PandocIOError String IOError | PandocPDFProgramNotFoundError String | PandocPDFError String | PandocFilterError String String - | PandocAppError Int String + | PandocAppError String deriving (Show, Typeable, Generic) instance Exception PandocError @@ -88,10 +88,10 @@ handleError (Left e) = PandocFailOnWarningError -> err 3 "Failing because there were warnings." PandocPDFProgramNotFoundError pdfprog -> err 47 $ pdfprog ++ " not found. " ++ pdfprog ++ " is needed for pdf output." - PandocPDFError log -> err 43 $ "Error producing PDF.\n" ++ log - PandocFilterError filter msg -> err 83 $ "Error running filter " ++ - filter ++ ":\n" ++ msg - PandocAppError ec s -> err ec s + PandocPDFError logmsg -> err 43 $ "Error producing PDF.\n" ++ logmsg + PandocFilterError filtername msg -> err 83 $ "Error running filter " ++ + filtername ++ ":\n" ++ msg + PandocAppError s -> err 1 s err :: Int -> String -> IO a err exitCode msg = do |