@@ -57,7 +57,7 @@ data PandocError = PandocIOError String IOError
57 | PandocPDFProgramNotFoundError String
57 | PandocPDFProgramNotFoundError String
58 | PandocPDFError String
58 | PandocPDFError String
59 | PandocFilterError String String
59 | PandocFilterError String String
60− | PandocAppError Int String
60+ | PandocAppError String
61 deriving (Show, Typeable, Generic)
61 deriving (Show, Typeable, Generic)
63instance Exception PandocError
63instance Exception PandocError
@@ -88,10 +88,10 @@ handleError (Left e) =
88 PandocFailOnWarningError -> err 3 "Failing because there were warnings."
88 PandocFailOnWarningError -> err 3 "Failing because there were warnings."
89 PandocPDFProgramNotFoundError pdfprog -> err 47 $
89 PandocPDFProgramNotFoundError pdfprog -> err 47 $
90 pdfprog ++ " not found. " ++ pdfprog ++ " is needed for pdf output."
90 pdfprog ++ " not found. " ++ pdfprog ++ " is needed for pdf output."
91− PandocPDFError log -> err 43 $ "Error producing PDF.\n" ++ log
91+ PandocPDFError logmsg -> err 43 $ "Error producing PDF.\n" ++ logmsg
92− PandocFilterError filter msg -> err 83 $ "Error running filter " ++
92+ PandocFilterError filtername msg -> err 83 $ "Error running filter " ++
93− filter ++ ":\n" ++ msg
93+ filtername ++ ":\n" ++ msg
94− PandocAppError ec s -> err ec s
94+ PandocAppError s -> err 1 s
96err :: Int -> String -> IO a
96err :: Int -> String -> IO a
97err exitCode msg = do
97err exitCode msg = do