Minor code improvement.

1 files changed, 2 insertions, 5 deletions

diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs
index 243f7fe17..f0dee64bc 100644
--- a/src/Text/Pandoc/App/CommandLineOptions.hs
+++ b/src/Text/Pandoc/App/CommandLineOptions.hs
@@ -842,11 +842,8 @@ options =
                            case arg of
                              Nothing  -> extensionsFromList extList
                              Just fmt -> getAllExtensions $ T.pack fmt
-                     let defExts =
-                           case arg of
-                             Nothing   -> getDefaultExtensions
-                                           "markdown"
-                             Just fmt  -> getDefaultExtensions $ T.pack fmt
+                     let formatName = maybe "markdown" T.pack arg
+                     let defExts = getDefaultExtensions formatName
                      let showExt x =
                            (if extensionEnabled x defExts
                                then '+'