diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-11-27 21:21:25 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-11-27 21:21:25 +0100 |
| commit | 8c38390038edcebd55f9dec8359ef983f3813425 (patch) | |
| tree | 3bfafa01dc708e5a66f5e19fe970196b7536b4de /src/Text | |
| parent | 3a2d993165e44103e6cde8a977542e6adedf913d (diff) | |
| download | pandoc-8c38390038edcebd55f9dec8359ef983f3813425.tar.gz | |
HTML reader tests: improve test coverage of new features
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML/Table.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML/Table.hs b/src/Text/Pandoc/Readers/HTML/Table.hs index 5a783988f..91639fa4c 100644 --- a/src/Text/Pandoc/Readers/HTML/Table.hs +++ b/src/Text/Pandoc/Readers/HTML/Table.hs @@ -214,7 +214,8 @@ normalize :: [ColWidth] -> TableHead -> [TableBody] -> TableFoot -> Either String ([ColSpec], TableHead, [TableBody], TableFoot) normalize widths head' bodies foot = do let rows = headRows head' <> concatMap bodyRows bodies <> footRows foot - let rowLength = length . rowCells + let cellWidth (Cell _ _ _ (ColSpan cs) _) = cs + let rowLength = foldr (\cell acc -> cellWidth cell + acc) 0 . rowCells let ncols = maximum (map rowLength rows) let tblType = tableType (map rowCells rows) -- fail on empty table |