aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-13 15:10:27 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-13 15:10:27 -0700
commitea1bb4ed272a92b2458ccbf72439b1fd7e52cf0a (patch)
tree767eb306eb43c12d85886237c30fc77a48b60a43
parent5dba2e21925fe0ca7c0a252c54d6fe79fa061ff5 (diff)
downloadpandoc-ea1bb4ed272a92b2458ccbf72439b1fd7e52cf0a.tar.gz
Better comment on removeFormatting.
-rw-r--r--src/Text/Pandoc/Shared.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 02391885d..1fd801cd8 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -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]