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>*→*</code> <tt>typed</tt> <hask>>>=</hask> +<code>*→*</code> <tt>typed</tt> <hask>>>=</hask> == code blocks == -- cgit v1.2.3