aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Error.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-04-13 17:02:30 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-04-15 11:53:45 +0200
commitd5701e625ceff494f4a54aa82490fe8e82dd1672 (patch)
treeedae1caa24bea5450e3fdb4fd3ab63bab292f6d2 /src/Text/Pandoc/Error.hs
parentdd4110fb09aa676cb03ed9cec52b21f9e7e46a3f (diff)
downloadpandoc-d5701e625ceff494f4a54aa82490fe8e82dd1672.tar.gz
Text.Pandoc.Error: added new constructors.
- PandocSyntaxMapError String - PandocFailOnWarningError - PandocPDFProgramNotFoundError String
Diffstat (limited to 'src/Text/Pandoc/Error.hs')
-rw-r--r--src/Text/Pandoc/Error.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs
index 454ad9982..36e9cca63 100644
--- a/src/Text/Pandoc/Error.hs
+++ b/src/Text/Pandoc/Error.hs
@@ -52,6 +52,9 @@ data PandocError = PandocIOError String IOError
| PandocParsecError Input ParseError
| PandocMakePDFError String
| PandocOptionError String
+ | PandocSyntaxMapError String
+ | PandocFailOnWarningError
+ | PandocPDFProgramNotFoundError String
| PandocAppError Int String
deriving (Show, Typeable, Generic)
@@ -79,6 +82,10 @@ handleError (Left e) =
in err 65 $ "\nError at " ++ show err' ++ errorInFile
PandocMakePDFError s -> err 65 s
PandocOptionError s -> err 2 s
+ PandocSyntaxMapError s -> err 67 s
+ PandocFailOnWarningError -> err 3 "Failing because there were warnings."
+ PandocPDFProgramNotFoundError pdfprog -> err 47 $
+ pdfprog ++ " not found. " ++ pdfprog ++ " is needed for pdf output."
PandocAppError ec s -> err ec s
err :: Int -> String -> IO a