diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-10-30 11:02:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-10-30 11:02:00 -0700 |
| commit | 8b3be07ae8566f29cbf73062d87c9dd44f99f566 (patch) | |
| tree | f662aee321bebbdf8d963ec2c24554f729105cfe /src | |
| parent | 55b8d0abee2086be12d7dc33f7848f74482ee7e8 (diff) | |
hlint suggestions.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/App/CommandLineOptions.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs index 58c9e9e2a..32e3e4065 100644 --- a/src/Text/Pandoc/App/CommandLineOptions.hs +++ b/src/Text/Pandoc/App/CommandLineOptions.hs @@ -830,9 +830,7 @@ options = (OptArg (\arg _ -> do let allExts = getAllExtensions $ - case arg of - Nothing -> "markdown" - Just fmt -> T.pack fmt + maybe "markdown" T.pack arg let formatName = maybe "markdown" T.pack arg if formatName `notElem` (map fst (readers :: [(Text, Reader PandocPure)]) ++ |