@@ -805,13 +805,13 @@ lookupHighlightStyle (Just s)
805805 | takeExtension s == ".theme" = -- attempt to load KDE theme
806806 do contents <- B.readFile s
807807 case parseTheme contents of
808− Left _ -> E.throwIO $ PandocAppError 69 $
808+ Left _ -> E.throwIO $ PandocOptionError $
809809 "Could not read highlighting theme " ++ s
810810 Right sty -> return (Just sty)
811811 | otherwise =
812812 case lookup (map toLower s) highlightingStyles of
813813 Just sty -> return (Just sty)
814− Nothing -> E.throwIO $ PandocAppError 68 $
814+ Nothing -> E.throwIO $ PandocOptionError $
815815 "Unknown highlight-style " ++ s
816816
817817-- | A list of functions, each transforming the options data structure
@@ -848,7 +848,7 @@ options =
848848 case safeRead arg of
849849 Just t | t > 0 && t < 6 ->
850850 return opt{ optBaseHeaderLevel = t }
851− _ -> E.throwIO $ PandocAppError 19
851+ _ -> E.throwIO $ PandocOptionError
852852 "base-header-level must be 1-5")
853853 "NUMBER")
854854 "" -- "Headers base level"
@@ -882,7 +882,7 @@ options =
882882 (\arg opt ->
883883 case safeRead arg of
884884 Just t | t > 0 -> return opt { optTabStop = t }
885− _ -> E.throwIO $ PandocAppError 31
885+ _ -> E.throwIO $ PandocOptionError
886886 "tab-stop must be a number greater than 0")
887887 "NUMBER")
888888 "" -- "Tab stop (default 4)"
@@ -894,7 +894,7 @@ options =
894894 "accept" -> return AcceptChanges
895895 "reject" -> return RejectChanges
896896 "all" -> return AllChanges
897− _ -> E.throwIO $ PandocAppError 6
897+ _ -> E.throwIO $ PandocOptionError
898898 ("Unknown option for track-changes: " ++ arg)
899899 return opt { optTrackChanges = action })
900900 "accept|reject|all")
@@ -965,7 +965,7 @@ options =
965965 (\arg opt ->
966966 case safeRead arg of
967967 Just t | t > 0 -> return opt { optDpi = t }
968− _ -> E.throwIO $ PandocAppError 31
968+ _ -> E.throwIO $ PandocOptionError
969969 "dpi must be a number greater than 0")
970970 "NUMBER")
971971 "" -- "Dpi (default 96)"
@@ -975,7 +975,7 @@ options =
975975 (\arg opt ->
976976 case safeRead ("Wrap" ++ uppercaseFirstLetter arg) of
977977 Just o -> return opt { optWrapText = o }
978− Nothing -> E.throwIO $ PandocAppError 77
978+ Nothing -> E.throwIO $ PandocOptionError
979979 "--wrap must be auto, none, or preserve")
980980 "auto|none|preserve")
981981 "" -- "Option for wrapping text in output"
@@ -985,7 +985,7 @@ options =
985985 (\arg opt ->
986986 case safeRead arg of
987987 Just t | t > 0 -> return opt { optColumns = t }
988− _ -> E.throwIO $ PandocAppError 33
988+ _ -> E.throwIO $ PandocOptionError
989989 "columns must be a number greater than 0")
990990 "NUMBER")
991991 "" -- "Length of line in characters"
@@ -1001,7 +1001,7 @@ options =
10011001 case safeRead arg of
10021002 Just t | t >= 1 && t <= 6 ->
10031003 return opt { optTOCDepth = t }
1004− _ -> E.throwIO $ PandocAppError 57
1004+ _ -> E.throwIO $ PandocOptionError
10051005 "TOC level must be a number between 1 and 6")
10061006 "NUMBER")
10071007 "" -- "Number of levels to include in TOC"
@@ -1077,7 +1077,7 @@ options =
10771077 "block" -> return EndOfBlock
10781078 "section" -> return EndOfSection
10791079 "document" -> return EndOfDocument
1080− _ -> E.throwIO $ PandocAppError 6
1080+ _ -> E.throwIO $ PandocOptionError
10811081 ("Unknown option for reference-location: " ++ arg)
10821082 return opt { optReferenceLocation = action })
10831083 "block|section|document")
@@ -1094,7 +1094,7 @@ options =
10941094 let tldName = "TopLevel" ++ uppercaseFirstLetter arg
10951095 case safeRead tldName of
10961096 Just tlDiv -> return opt { optTopLevelDivision = tlDiv }
1097− _ -> E.throwIO $ PandocAppError 76
1097+ _ -> E.throwIO $ PandocOptionError
10981098 ("Top-level division must be " ++
10991099 "section, chapter, part, or default"))
11001100 "section|chapter|part")
@@ -1111,7 +1111,7 @@ options =
11111111 case safeRead ('[':arg ++ "]") of
11121112 Just ns -> return opt { optNumberOffset = ns,
11131113 optNumberSections = True }
1114− _ -> E.throwIO $ PandocAppError 57
1114+ _ -> E.throwIO $ PandocOptionError
11151115 "could not parse number-offset")
11161116 "NUMBERS")
11171117 "" -- "Starting number for sections, subsections, etc."
@@ -1132,7 +1132,7 @@ options =
11321132 case safeRead arg of
11331133 Just t | t >= 1 && t <= 6 ->
11341134 return opt { optSlideLevel = Just t }
1135− _ -> E.throwIO $ PandocAppError 39
1135+ _ -> E.throwIO $ PandocOptionError
11361136 "slide level must be a number between 1 and 6")
11371137 "NUMBER")
11381138 "" -- "Force header level for slides"
@@ -1155,7 +1155,7 @@ options =
11551155 "references" -> return ReferenceObfuscation
11561156 "javascript" -> return JavascriptObfuscation
11571157 "none" -> return NoObfuscation
1158− _ -> E.throwIO $ PandocAppError 6
1158+ _ -> E.throwIO $ PandocOptionError
11591159 ("Unknown obfuscation method: " ++ arg)
11601160 return opt { optEmailObfuscation = method })
11611161 "none|javascript|references")
@@ -1217,7 +1217,7 @@ options =
12171217 case safeRead arg of
12181218 Just t | t >= 1 && t <= 6 ->
12191219 return opt { optEpubChapterLevel = t }
1220− _ -> E.throwIO $ PandocAppError 59
1220+ _ -> E.throwIO $ PandocOptionError
12211221 "chapter level must be a number between 1 and 6")
12221222 "NUMBER")
12231223 "" -- "Header level at which to split chapters in EPUB"
@@ -1228,7 +1228,7 @@ options =
12281228 let b = takeBaseName arg
12291229 if b `elem` ["pdflatex", "lualatex", "xelatex"]
12301230 then return opt { optLaTeXEngine = arg }
1231− else E.throwIO $ PandocAppError 45 "latex-engine must be pdflatex, lualatex, or xelatex.")
1231+ else E.throwIO $ PandocOptionError "latex-engine must be pdflatex, lualatex, or xelatex.")
12321232 "PROGRAM")
12331233 "" -- "Name of latex program to use in generating PDF"
12341234