Minor code improvement.

2022-01-03 10:26:18 -08:00 · 2022-01-03 10:26:18 -08:00 · 0abfe4fdab
commit 0abfe4fdab
parent 75c5218d4f
1 changed files with 2 additions and 5 deletions
--- 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 '+'