diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-13 14:56:20 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-13 14:56:20 -0700 |
| commit | 5dba2e21925fe0ca7c0a252c54d6fe79fa061ff5 (patch) | |
| tree | 731edbcd12ef1717a0e7ac093855b33433fd62f0 /src/Text/Pandoc/Shared.hs | |
| parent | 5df812f7eb9e2d26ffc26b5ba0644a8ae3016629 (diff) | |
| download | pandoc-5dba2e21925fe0ca7c0a252c54d6fe79fa061ff5.tar.gz | |
Shared: Generalized type of removeFormatting.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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] |