Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Issue error with --list-extensions for invalid formats.

Browse source 
Cloess #7797.
This commit is contained in:
John MacFarlane 2022-01-03 11:08:14 -08:00
parent cdfdfae4dd
commit ca7a3ed5ed
1 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/Text/Pandoc/App/CommandLineOptions.hs
View file

@ -843,16 +843,22 @@ options =
Nothing -> extensionsFromList extList
Just fmt -> getAllExtensions $ T.pack fmt
let formatName = maybe "markdown" T.pack arg
let defExts = getDefaultExtensions formatName
let showExt x =
(if extensionEnabled x defExts
then '+'
else if extensionEnabled x allExts
then '-'
else ' ') : drop 4 (show x)
mapM_ (UTF8.hPutStrLn stdout . T.pack . showExt)
[ex | ex <- extList, extensionEnabled ex allExts]
exitSuccess )
if formatName `notElem`
(map fst (readers :: [(Text, Reader PandocPure)]) ++
map fst (writers :: [(Text, Writer PandocPure)]))
then E.throwIO $ PandocOptionError $ formatName <>
" is not a recognized reader or writer format"
else do
let defExts = getDefaultExtensions formatName
let showExt x =
(if extensionEnabled x defExts
then '+'
else if extensionEnabled x allExts
then '-'
else ' ') : drop 4 (show x)
mapM_ (UTF8.hPutStrLn stdout . T.pack . showExt)
[ex | ex <- extList, extensionEnabled ex allExts]
exitSuccess )
"FORMAT")
""