summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/MediaWiki.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-01-06 19:35:40 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-01-06 19:35:40 -0800
commit300f8528daaa13b6ee6931bbe8bb70eac914b333 (patch)
tree1b0416cc70acd1a528cc4496548f2aef9daa02d7 /src/Text/Pandoc/Readers/MediaWiki.hs
parent4d1c82de9e0ce213e6c32cd798549c4ddaf9d197 (diff)
Mediawiki reader: interpret HTML in verbatim contexts as text.
Thanks to Jeff Runningen for reporting that mediawiki works this way.
Diffstat (limited to 'src/Text/Pandoc/Readers/MediaWiki.hs')
-rw-r--r--src/Text/Pandoc/Readers/MediaWiki.hs3
1 files changed, 1 insertions, 2 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