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/HTML/Table.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/HTML/Table.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML/Table.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/HTML/Table.hs b/src/Text/Pandoc/Readers/HTML/Table.hs index 756f857fd..b452a60ac 100644 --- a/src/Text/Pandoc/Readers/HTML/Table.hs +++ b/src/Text/Pandoc/Readers/HTML/Table.hs @@ -20,7 +20,7 @@ import Control.Applicative ((<|>)) import Data.Maybe (fromMaybe, isJust) import Data.Either (lefts, rights) import Data.List.NonEmpty (nonEmpty) -import Data.List (foldl') +import qualified Data.List as L import Data.Text (Text) import Text.HTML.TagSoup import Text.Pandoc.Builder (Blocks) @@ -204,9 +204,9 @@ pTableBody block = try $ do let adjustRowHeadCols headcolsv (currentrow, (numheads, Row _ cells)) = - foldl' (adjustRowHeadColsForCell currentrow) headcolsv + L.foldl' (adjustRowHeadColsForCell currentrow) headcolsv (take numheads cells) - let headcols = foldl' adjustRowHeadCols + let headcols = L.foldl' adjustRowHeadCols (V.replicate numrows (0 :: Int)) (zip [(0 :: Int)..] rows) let rowHeadCols = case V.uncons headcols of |
