@@ -495,7 +495,7 @@ normalizeInlines (x : xs) = x : normalizeInlines xs
495normalizeInlines [] = []
495normalizeInlines [] = []
497-- | Remove inline formatting from a list of inlines.
497-- | Remove inline formatting from a list of inlines.
498−removeFormatting :: [Inline] -> [Inline]
498+removeFormatting :: 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]
501 go (Str xs) = [Str xs]
501 go (Str xs) = [Str xs]