Better comment on removeFormatting.

This commit is contained in:
John MacFarlane 2014-07-13 15:10:27 -07:00
parent 5dba2e2192
commit ea1bb4ed27

View file

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