Changed format of --list-extensions.

Now the + or - occurs first.

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 )