opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-28 17:20:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

T.P.Readers.Docx.Lists: replace a generic traversal...

Browse Source 
using `bottomUp` with a faster one using `walk`.
This commit is contained in:
John MacFarlane
2024-06-04 10:22:38 -07:00
parent f5531f18a5
commit 75afa7829b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Docx/Lists.hs
+2 -2
View File
@@ -21,7 +21,7 @@ import Data.List
import Data.Maybe
import Data.String (fromString)
import qualified Data.Text as T
import Text.Pandoc.Generic (bottomUp)
import Text.Pandoc.Walk (walk)
import Text.Pandoc.JSON
import Text.Pandoc.Readers.Docx.Parse (ParaStyleName)
import Text.Pandoc.Shared (trim, safeRead)
@@ -153,7 +153,7 @@ singleItemHeaderToHeader blk = blk
blocksToBullets :: [Block] -> [Block]
blocksToBullets blks =
map singleItemHeaderToHeader $
bottomUp removeListDivs $ flatToBullets (handleListParagraphs blks)
walk removeListDivs $ flatToBullets (handleListParagraphs blks)
plainParaInlines :: Block -> [Inline]
plainParaInlines (Plain ils) = ils