diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-12 19:35:06 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-12 19:35:06 -0700 |
| commit | a76c6df826289f09293723e2ed56237684d5aca0 (patch) | |
| tree | 7c8b952defaa8bc4f6ead599aa7880ec8e22d5b0 /src | |
| parent | b19aee4e1e199309f91059a11154059db9411798 (diff) | |
| download | pandoc-a76c6df826289f09293723e2ed56237684d5aca0.tar.gz | |
More mediawiki reader tests.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index e9d0fe718..ed96d6ccd 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -44,13 +44,7 @@ _ raw mediawiki: _ templates or anything in {{}} (can be postprocessed) _ category links _ gallery tag? -_ tests for sup, sub, del -_ tests for pre, haskell, syntaxhighlight -_ tests for code, tt, hask -_ test for blockquote _ tests for native lists -_ tests for autolink urls -_ tests for external links -} module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where @@ -175,7 +169,7 @@ syntaxhighlight = try $ do let classes = maybe [] (:[]) mblang ++ maybe [] (const ["numberLines"]) mbline let kvs = maybe [] (\x -> [("startFrom",x)]) mbstart contents <- charsInTags "syntaxhighlight" - return $ B.codeBlockWith ("",classes,kvs) contents + return $ B.codeBlockWith ("",classes,kvs) $ trimCode contents haskell :: MWParser Blocks haskell = B.codeBlockWith ("",["haskell"],[]) . trimCode <$> |