diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-06 19:35:40 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-06 19:35:40 -0800 |
commit | 300f8528daaa13b6ee6931bbe8bb70eac914b333 (patch) | |
tree | 1b0416cc70acd1a528cc4496548f2aef9daa02d7 | |
parent | 4d1c82de9e0ce213e6c32cd798549c4ddaf9d197 (diff) | |
download | pandoc-300f8528daaa13b6ee6931bbe8bb70eac914b333.tar.gz |
Mediawiki reader: interpret HTML in verbatim contexts as text.
Thanks to Jeff Runningen for reporting that mediawiki works
this way.
-rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 3 | ||||
-rw-r--r-- | 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 == |