diff options
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 |