From 0fdc6deb089182defba667de73692ec17448f940 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 12 Sep 2012 16:15:52 -0700
Subject: MediaWiki reader: Fixed charsInTags parser to use innerText.

---
 src/Text/Pandoc/Readers/MediaWiki.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 89c295141..5774baac2 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -30,8 +30,6 @@ Conversion of mediawiki text to 'Pandoc' document.
 -}
 {-
 TODO:
-_ fix pre parser -- it should use html tagsoup parsers,
-  then just strip out the text from text tags.
 _ correctly handle skipped level in list, e.g. # to ###
 _ tests for lists
 _ support HTML lists
@@ -113,7 +111,7 @@ blocksInTags tag = mconcat <$> try
    manyTill block (htmlTag (~== TagClose tag)))
 
 charsInTags :: String -> MWParser [Char]
-charsInTags tag = fromEntities <$> try
+charsInTags tag = innerText . parseTags <$> try
   (htmlTag (~== TagOpen tag []) *>
    manyTill anyChar (htmlTag (~== TagClose tag)))
 
-- 
cgit v1.2.3