diff options
| author | John MacFarlane <[email protected]> | 2025-12-12 10:32:17 +0100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-12-12 10:32:17 +0100 |
| commit | d5e100eec2ecaddfb8f099b6dad5d0c7c05ac06b (patch) | |
| tree | 8b44c847034e99a2d37aea895141a168f602f132 /src/Text/Pandoc/App/CommandLineOptions.hs | |
| parent | ff3eda71eb9567df679721c9bf506b0fecd25d9f (diff) | |
Fix imports to avoid warning about foldl'.
`foldl'` is exported by Prelude by base 4.20+. So we need to do
some qualified importing to avoid warnings about redundant imports.
Diffstat (limited to 'src/Text/Pandoc/App/CommandLineOptions.hs')
| -rw-r--r-- | src/Text/Pandoc/App/CommandLineOptions.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs index e9d5e0597..1020d716d 100644 --- a/src/Text/Pandoc/App/CommandLineOptions.hs +++ b/src/Text/Pandoc/App/CommandLineOptions.hs @@ -31,7 +31,8 @@ import Data.Aeson.Encode.Pretty (encodePretty', Config(..), keyOrder, defConfig, Indent(..), NumberFormat(..)) import Data.Bifunctor (second) import Data.Char (toLower) -import Data.List (intercalate, sort, foldl') +import Data.List (intercalate, sort) +import qualified Data.List as L #ifdef _WINDOWS import Data.List (isPrefixOf) #endif @@ -100,7 +101,7 @@ parseOptionsFromArgs options' defaults prg rawArgs = do if (null errors && null unknownOptionErrors) then -- thread option data structure through all supplied option actions - runExceptT $ adjustOpts <$> (foldl' (>>=) (return defaults) actions) + runExceptT $ adjustOpts <$> (L.foldl' (>>=) (return defaults) actions) else return $ Left $ OptError $ PandocOptionError $ T.pack $ concat errors ++ unlines unknownOptionErrors ++ ("Try " ++ prg ++ " --help for more information.") |