From ea1bb4ed272a92b2458ccbf72439b1fd7e52cf0a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 13 Jul 2014 15:10:27 -0700
Subject: Better comment on 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 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]
-- 
cgit v1.2.3