@@ -441,7 +441,7 @@ makeHeaderAnchor' (Header n (ident, classes, kvs) ils)
441 newIls = concatMap f ils where f il | il == c = cIls
441 newIls = concatMap f ils where f il | il == c = cIls
442 | otherwise = [il]
442 | otherwise = [il]
443 modify $ \s -> s {docxAnchorMap = M.insert anchIdent newIdent hdrIDMap}
443 modify $ \s -> s {docxAnchorMap = M.insert anchIdent newIdent hdrIDMap}
444− return $ Header n (newIdent, classes, kvs) newIls
444+ makeHeaderAnchor' $ Header n (newIdent, classes, kvs) newIls
445-- Otherwise we just give it a name, and register that name (associate
445-- Otherwise we just give it a name, and register that name (associate
446-- it with itself.)
446-- it with itself.)
447makeHeaderAnchor' (Header n (ident, classes, kvs) ils) =
447makeHeaderAnchor' (Header n (ident, classes, kvs) ils) =