diff options
| author | Christian Despres <50160106+despresc@users.noreply.github.com> | 2021-11-11 23:55:37 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-11 20:55:37 -0800 |
| commit | abdfefebdf9ffd338683adb1d4fcfe6db4909b49 (patch) | |
| tree | e264d6fb8cf598b388c5af5edb7a4e7d892b99b0 /src | |
| parent | ebf7f782d3151956d6e886c9615580c0b67f6656 (diff) | |
| download | pandoc-abdfefebdf9ffd338683adb1d4fcfe6db4909b49.tar.gz | |
Writers.Shared: Improve toLegacyTable.
Closes #7683.
(PR #7684)
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index 6b8be3c8b..b23fc1341 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -508,7 +508,7 @@ toLegacyTable (Caption _ cbody) specs thead tbodies tfoot = let (h, w, cBody) = getComponents c cRowPieces = cBody : replicate (w - 1) mempty cPendingPieces = replicate w $ replicate (h - 1) mempty - pendingPieces' = dropWhile null pendingPieces + pendingPieces' = drop w pendingPieces (pendingPieces'', rowPieces) = placeCutCells pendingPieces' cells' in (cPendingPieces <> pendingPieces'', cRowPieces <> rowPieces) | otherwise = ([], []) |