aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/HTML/Table.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2025-12-12 10:32:17 +0100
committerJohn MacFarlane <[email protected]>2025-12-12 10:32:17 +0100
commitd5e100eec2ecaddfb8f099b6dad5d0c7c05ac06b (patch)
tree8b44c847034e99a2d37aea895141a168f602f132 /src/Text/Pandoc/Readers/HTML/Table.hs
parentff3eda71eb9567df679721c9bf506b0fecd25d9f (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.hs6
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