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/Readers/Markdown.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/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 1ee1b801e..ad22996b4 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -24,7 +24,8 @@ import Control.Monad import Control.Monad.Except (throwError) import qualified Data.Bifunctor as Bifunctor import Data.Char (isAlphaNum, isPunctuation, isSpace) -import Data.List (transpose, elemIndex, sortOn, foldl') +import Data.List (transpose, elemIndex, sortOn) +import qualified Data.List as L import qualified Data.Map as M import Data.Maybe import qualified Data.Set as Set @@ -388,7 +389,7 @@ referenceKey = try $ do addKvs <- option [] $ guardEnabled Ext_mmd_link_attributes >> many (try $ spnl >> keyValAttr) blanklines - let attr' = extractIdClass $ foldl' (\x f -> f x) attr addKvs + let attr' = extractIdClass $ L.foldl' (\x f -> f x) attr addKvs target = (escapeURI $ trimr src, tit) st <- getState let oldkeys = stateKeys st @@ -648,7 +649,7 @@ attributes = try $ do spnl attrs <- many (attribute <* spnl) char '}' - return $ foldl' (\x f -> f x) nullAttr attrs + return $ L.foldl' (\x f -> f x) nullAttr attrs attribute :: PandocMonad m => MarkdownParser m (Attr -> Attr) attribute = identifierAttr <|> classAttr <|> keyValAttr <|> specialAttr |