@@ -131,9 +131,10 @@ convertWithOpts opts = do
131131 (map (T.pack . takeExtension) sources) "markdown"
132132 return "markdown"
133133
134+ let readerNameBase = T.takeWhile (\c -> c /= '+' && c /= '-') readerName
134135 let pdfOutput = map toLower (takeExtension outputFile) == ".pdf"
135136
136− when (pdfOutput && readerName == "latex") $
137+ when (pdfOutput && readerNameBase == "latex") $
137138 case optInputFiles opts of
138139 Just (inputFile:_) -> report $ UnusualConversion $ T.pack $
139140 "to convert a .tex file to PDF, you get better results by using pdflatex "
@@ -144,8 +145,8 @@ convertWithOpts opts = do
144145 (reader :: Reader PandocIO, readerExts) <- getReader readerName
145146
146147 let convertTabs = tabFilter (if optPreserveTabs opts ||
147− readerName == "t2t" ||
148− readerName == "man"
148+ readerNameBase == "t2t" ||
149+ readerNameBase == "man"
149150 then 0
150151 else optTabStop opts)
151152
@@ -159,11 +160,12 @@ convertWithOpts opts = do
159160 let format = outputFormat outputSettings
160161 let writer = outputWriter outputSettings
161162 let writerName = outputWriterName outputSettings
163+ let writerNameBase = T.takeWhile (\c -> c /= '+' && c /= '-') writerName
162164 let writerOptions = outputWriterOptions outputSettings
163165
164− let bibOutput = writerName == "bibtex" ||
165− writerName == "biblatex" ||
166− writerName == "csljson"
166+ let bibOutput = writerNameBase == "bibtex" ||
167+ writerNameBase == "biblatex" ||
168+ writerNameBase == "csljson"
167169
168170 let standalone = optStandalone opts ||
169171 not (isTextFormat format) ||
@@ -255,7 +257,7 @@ convertWithOpts opts = do
255257 sourceToDoc sources' =
256258 case reader of
257259 TextReader r
258− | optFileScope opts || readerName == "json" ->
260+ | optFileScope opts || readerNameBase == "json" ->
259261 mconcat <$> mapM (readSource >=> r readerOpts) sources'
260262 | otherwise ->
261263 readSources sources' >>= r readerOpts
@@ -263,8 +265,8 @@ convertWithOpts opts = do
263265 mconcat <$> mapM (readFile' >=> r readerOpts) sources'
264266
265267
266− when (readerName == "markdown_github" ||
267− writerName == "markdown_github") $
268+ when (readerNameBase == "markdown_github" ||
269+ writerNameBase == "markdown_github") $
268270 report $ Deprecated "markdown_github" "Use gfm instead."
269271
270272 mapM_ (uncurry setRequestHeader) (optRequestHeaders opts)