@@ -57,7 +57,7 @@ data PandocError = PandocIOError String IOError
5757 | PandocPDFProgramNotFoundError String
5858 | PandocPDFError String
5959 | PandocFilterError String String
60− | PandocAppError Int String
60+ | PandocAppError String
6161 deriving (Show, Typeable, Generic)
6262
6363instance Exception PandocError
@@ -88,10 +88,10 @@ handleError (Left e) =
8888 PandocFailOnWarningError -> err 3 "Failing because there were warnings."
8989 PandocPDFProgramNotFoundError pdfprog -> err 47 $
9090 pdfprog ++ " not found. " ++ pdfprog ++ " is needed for pdf output."
91− PandocPDFError log -> err 43 $ "Error producing PDF.\n" ++ log
92− PandocFilterError filter msg -> err 83 $ "Error running filter " ++
93− filter ++ ":\n" ++ msg
94− PandocAppError ec s -> err ec s
91+ PandocPDFError logmsg -> err 43 $ "Error producing PDF.\n" ++ logmsg
92+ PandocFilterError filtername msg -> err 83 $ "Error running filter " ++
93+ filtername ++ ":\n" ++ msg
94+ PandocAppError s -> err 1 s
9595
9696err :: Int -> String -> IO a
9797err exitCode msg = do