@@ -535,23 +535,18 @@ rewriteLink' l@(Link ils ('#':target, title)) = do
535535 Nothing -> l
536536rewriteLink' il = return il
537537
538−rewriteLink :: Blocks -> DocxContext Blocks
539−rewriteLink ils = case viewl $ unMany ils of
540− (x :< xs) -> do
541− x' <- walkM rewriteLink' x
542− xs' <- rewriteLink $ Many xs
543− return $ (singleton x') <> xs'
544− EmptyL -> return ils
538+rewriteLinks :: [Block] -> DocxContext [Block]
539+rewriteLinks = mapM (walkM rewriteLink')
545540
546541bodyToOutput :: Body -> DocxContext (Meta, [Block], MediaBag)
547542bodyToOutput (Body bps) = do
548543 let (metabps, blkbps) = sepBodyParts bps
549544 meta <- bodyPartsToMeta metabps
550545 blks <- concatReduce <$> mapM bodyPartToBlocks blkbps
551− blks' <- rewriteLink blks
546+ blks' <- rewriteLinks $ blocksToDefinitions $ blocksToBullets $ toList blks
552547 mediaBag <- gets docxMediaBag
553548 return $ (meta,
554− blocksToDefinitions $ blocksToBullets $ toList blks',
549+ blks',
555550 mediaBag)
556551
557552docxToOutput :: ReaderOptions -> Docx -> (Meta, [Block], MediaBag)