From a76c6df826289f09293723e2ed56237684d5aca0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 12 Sep 2012 19:35:06 -0700
Subject: More mediawiki reader tests.

---
 src/Text/Pandoc/Readers/MediaWiki.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'src')

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 <$>
-- 
cgit v1.2.3