diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-12 16:15:52 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-12 16:15:52 -0700 |
| commit | 0fdc6deb089182defba667de73692ec17448f940 (patch) | |
| tree | aba199c9c678da38201ea6009b92d6584f7f8f44 /src/Text | |
| parent | 7326f0bf1723075e2dc6a3bcb9c98924e40ada92 (diff) | |
MediaWiki reader: Fixed charsInTags parser to use innerText.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 89c295141..5774baac2 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -30,8 +30,6 @@ Conversion of mediawiki text to 'Pandoc' document. -} {- TODO: -_ fix pre parser -- it should use html tagsoup parsers, - then just strip out the text from text tags. _ correctly handle skipped level in list, e.g. # to ### _ tests for lists _ support HTML lists @@ -113,7 +111,7 @@ blocksInTags tag = mconcat <$> try manyTill block (htmlTag (~== TagClose tag))) charsInTags :: String -> MWParser [Char] -charsInTags tag = fromEntities <$> try +charsInTags tag = innerText . parseTags <$> try (htmlTag (~== TagOpen tag []) *> manyTill anyChar (htmlTag (~== TagClose tag))) |