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/LaTeX/Math.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/LaTeX/Math.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Math.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Math.hs b/src/Text/Pandoc/Readers/LaTeX/Math.hs index f1491656e..5685465f8 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Math.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Math.hs @@ -14,7 +14,7 @@ module Text.Pandoc.Readers.LaTeX.Math ) where import Data.Maybe (fromMaybe, mapMaybe, listToMaybe) -import Data.List (foldl') +import qualified Data.List as L import Text.Pandoc.Walk (walk) import Text.Pandoc.Builder as B import qualified Data.Sequence as Seq @@ -160,7 +160,7 @@ newtheorem inline = do extractLabelFromBlock :: Block -> Maybe Text extractLabelFromBlock (Para inlines) = extractLabel Nothing inlines where - extractLabel = foldl' go + extractLabel = L.foldl' go go :: Maybe Text -> Inline -> Maybe Text go (Just t) _ = Just t go Nothing (Span (_, _, attrs) _) = lookup "label" attrs |
