diff options
| -rw-r--r-- | src/Text/Pandoc/App/CommandLineOptions.hs | 7 |
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 '+' |