@@ -494,7 +494,7 @@ normalizeInlines (Cite cs ils : ys) =
494normalizeInlines (x : xs) = x : normalizeInlines xs
494normalizeInlines (x : xs) = x : normalizeInlines xs
495normalizeInlines [] = []
495normalizeInlines [] = []
497−-- | Remove inline formatting from a list of inlines.
497+-- | Extract inlines, removing formatting.
498removeFormatting :: Walkable Inline a => a -> [Inline]
498removeFormatting :: Walkable Inline a => a -> [Inline]
499removeFormatting = query go . walk deNote
499removeFormatting = query go . walk deNote
500 where go :: Inline -> [Inline]
500 where go :: Inline -> [Inline]