From 5dba2e21925fe0ca7c0a252c54d6fe79fa061ff5 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 13 Jul 2014 14:56:20 -0700 Subject: Shared: Generalized type of removeFormatting. --- src/Text/Pandoc/Shared.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 8504e996c..02391885d 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -495,7 +495,7 @@ normalizeInlines (x : xs) = x : normalizeInlines xs normalizeInlines [] = [] -- | Remove inline formatting from a list of inlines. -removeFormatting :: [Inline] -> [Inline] +removeFormatting :: Walkable Inline a => a -> [Inline] removeFormatting = query go . walk deNote where go :: Inline -> [Inline] go (Str xs) = [Str xs] -- cgit v1.2.3