@@ -30,8 +30,6 @@ Conversion of mediawiki text to 'Pandoc' document.
33−_ fix pre parser -- it should use html tagsoup parsers,
34− then just strip out the text from text tags.
35_ correctly handle skipped level in list, e.g. # to ###
33_ correctly handle skipped level in list, e.g. # to ###
36_ tests for lists
34_ tests for lists
37_ support HTML lists
35_ support HTML lists
@@ -113,7 +111,7 @@ blocksInTags tag = mconcat <$> try
113 manyTill block (htmlTag (~== TagClose tag)))
111 manyTill block (htmlTag (~== TagClose tag)))
115charsInTags :: String -> MWParser [Char]
113charsInTags :: String -> MWParser [Char]
116−charsInTags tag = fromEntities <$> try
114+charsInTags tag = innerText . parseTags <$> try
117 (htmlTag (~== TagOpen tag []) *>
115 (htmlTag (~== TagOpen tag []) *>
118 manyTill anyChar (htmlTag (~== TagClose tag)))
116 manyTill anyChar (htmlTag (~== TagClose tag)))