From 300f8528daaa13b6ee6931bbe8bb70eac914b333 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 6 Jan 2013 19:35:40 -0800
Subject: Mediawiki reader: interpret HTML in verbatim contexts as text.

Thanks to Jeff Runningen for reporting that mediawiki works
this way.
---
 src/Text/Pandoc/Readers/MediaWiki.hs | 3 +--
 tests/mediawiki-reader.wiki          | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 7936be38b..434f67646 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -139,8 +139,7 @@ charsInTags tag = try $ do
   (_,raw) <- htmlTag (~== TagOpen tag [])
   if '/' `elem` raw   -- self-closing tag
      then return ""
-     else innerText . parseTags <$>
-            manyTill anyChar (htmlTag (~== TagClose tag))
+     else manyTill anyChar (htmlTag (~== TagClose tag))
 
 --
 -- main parser
diff --git a/tests/mediawiki-reader.wiki b/tests/mediawiki-reader.wiki
index a9769594d..cc0ac7918 100644
--- a/tests/mediawiki-reader.wiki
+++ b/tests/mediawiki-reader.wiki
@@ -105,7 +105,7 @@ H<sub>2</sub>O base<sup>''exponent''</sup>
 
 == inline code ==
 
-<code>*&rarr;*</code> <tt>typed</tt> <hask>&gt;&gt;=</hask>
+<code>*→*</code> <tt>typed</tt> <hask>>>=</hask>
 
 == code blocks ==
 
-- 
cgit v1.2.3