diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-12 19:48:11 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-12 19:48:11 -0700 |
| commit | def768cd1f15ce1093d6da9ce263b0045db269e2 (patch) | |
| tree | 36aacd588eb4bfe488c27b183951100104aa9c66 /src/Text | |
| parent | a76c6df826289f09293723e2ed56237684d5aca0 (diff) | |
| download | pandoc-def768cd1f15ce1093d6da9ce263b0045db269e2.tar.gz | |
Added tests for mediawiki lists.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index ed96d6ccd..3bf4a0cdb 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -44,7 +44,6 @@ _ raw mediawiki: _ templates or anything in {{}} (can be postprocessed) _ category links _ gallery tag? -_ tests for native lists -} module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where @@ -308,7 +307,9 @@ url = do return $ B.link src "" (B.str orig) nowiki :: MWParser Inlines -nowiki = B.text <$> charsInTags "nowiki" +nowiki = B.text . fromEntities <$> try + (htmlTag (~== TagOpen "nowiki" []) *> + manyTill anyChar (htmlTag (~== TagClose "nowiki"))) strikeout :: MWParser Inlines strikeout = B.strikeout <$> (inlinesInTags "strike" <|> inlinesInTags "del") |