diff options
| author | Albert Krewinkel <[email protected]> | 2024-05-10 12:14:15 +0200 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-09-09 20:09:13 -0700 |
| commit | c0f995d0a30f5ce291b1832f40a4681f85b96f7d (patch) | |
| tree | 4b8ca2cb501da0dfbdf832f9ceffcde816593cb0 | |
| parent | b7bcc425909efa56b12ea9982a4aa774998e0103 (diff) | |
Remove Text.Pandoc.Shared.stripEmptyParagraphs [API change]
This is no longer used.
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 6aa8601f2..805477e72 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -56,7 +56,6 @@ module Text.Pandoc.Shared ( inlineListToIdentifier, textToIdentifier, isHeaderBlock, - stripEmptyParagraphs, onlySimpleTableCells, isTightList, taskListItemFromAscii, @@ -608,14 +607,6 @@ isHeaderBlock :: Block -> Bool isHeaderBlock Header{} = True isHeaderBlock _ = False --- | Remove empty paragraphs. -stripEmptyParagraphs :: Pandoc -> Pandoc -stripEmptyParagraphs = walk go - where go :: [Block] -> [Block] - go = filter (not . isEmptyParagraph) - isEmptyParagraph (Para []) = True - isEmptyParagraph _ = False - -- | Detect if table rows contain only cells consisting of a single -- paragraph that has no @LineBreak@. onlySimpleTableCells :: [[[Block]]] -> Bool |