@@ -421,12 +421,7 @@ dummyAnchors :: [String]
421421dummyAnchors = ["_GoBack"]
422422
423423makeHeaderAnchor :: Blocks -> DocxContext Blocks
424−makeHeaderAnchor bs = case viewl $ unMany bs of
425− (x :< xs) -> do
426− x' <- (makeHeaderAnchor' x)
427− xs' <- (makeHeaderAnchor $ Many xs)
428− return $ (singleton x') <> xs'
429− EmptyL -> return mempty
424+makeHeaderAnchor bs = traverse makeHeaderAnchor' bs
430425
431426makeHeaderAnchor' :: Block -> DocxContext Block
432427-- If there is an anchor already there (an anchor span in the header,