summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-12-28 12:12:22 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-12-28 12:12:22 -0800
commite10864d9d59ac292fbf69031263931a8f6c9209a (patch)
tree801b8af5a1c424ee8858466343d807b924b73103 /src
parent3494b6efd32bebb36e3bef204be6d51650ac6085 (diff)
Changed format of --list-extensions.
Now the + or - occurs first.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/App.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index 50464830b..e46d03025 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -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 )