From e10864d9d59ac292fbf69031263931a8f6c9209a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 28 Dec 2017 12:12:22 -0800 Subject: Changed format of --list-extensions. Now the + or - occurs first. --- src/Text/Pandoc/App.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src') 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 ) -- cgit v1.2.3