From 0abfe4fdabfd372736e8a04a3b6e2a491684e4e3 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 3 Jan 2022 10:26:18 -0800 Subject: Minor code improvement. --- src/Text/Pandoc/App/CommandLineOptions.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src/Text') 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 '+' -- cgit v1.2.3