@@ -30,8 +30,6 @@ Conversion of mediawiki text to 'Pandoc' document.
3030-}
3131{-
3232TODO:
33−_ fix pre parser -- it should use html tagsoup parsers,
34− then just strip out the text from text tags.
3533_ correctly handle skipped level in list, e.g. # to ###
3634_ tests for lists
3735_ support HTML lists
@@ -113,7 +111,7 @@ blocksInTags tag = mconcat <$> try
113111 manyTill block (htmlTag (~== TagClose tag)))
114112
115113charsInTags :: String -> MWParser [Char]
116−charsInTags tag = fromEntities <$> try
114+charsInTags tag = innerText . parseTags <$> try
117115 (htmlTag (~== TagOpen tag []) *>
118116 manyTill anyChar (htmlTag (~== TagClose tag)))
119117