Changed format of --list-extensions.

Now the + or - occurs first.
This commit is contained in:
John MacFarlane 2017-12-28 12:12:22 -08:00
parent 3494b6efd3
commit e10864d9d5
2 changed files with 6 additions and 6 deletions

View file

@ -389,9 +389,10 @@ General options
`--list-extensions`[`=`*FORMAT*]
: List supported Markdown extensions, one per line, followed
: List supported Markdown extensions, one per line, preceded
by a `+` or `-` indicating whether it is enabled by default
in *FORMAT* (defaulting to pandoc's Markdown).
in *FORMAT*. If *FORMAT* is not specified, defaults for
pandoc's Markdown are given.
`--list-highlight-languages`

View file

@ -1592,10 +1592,9 @@ options =
(OptArg
(\arg _ -> do
let exts = getDefaultExtensions (fromMaybe "markdown" arg)
let showExt x = drop 4 (show x) ++
if extensionEnabled x exts
then " +"
else " -"
let showExt x = (if extensionEnabled x exts
then '+'
else '-') : drop 4 (show x)
mapM_ (UTF8.hPutStrLn stdout . showExt)
([minBound..maxBound] :: [Extension])
exitSuccess )