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

using `bottomUp` with a faster one using `walk`.
jgm · Jun 4, 2024 · 75afa78 · 75afa78
1 parent f5531f1
commit 75afa78
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Readers/Docx/Lists.hs b/src/Text/Pandoc/Readers/Docx/Lists.hs
@@ -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