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 ==