@@ -30,10 +30,7 @@ Conversion of mediawiki text to 'Pandoc' document.
3030-}
3131{-
3232TODO:
33−_ wikipedia {{cite}} tags
34−_ <references /> {{Reflist}}
35−_ support tables http://www.mediawiki.org/wiki/Help:Tables
36−- footnotes?
33+_ parse templates?
3734-}
3835module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where
3936
@@ -101,7 +98,7 @@ sym :: String -> MWParser ()
10198sym s = () <$ try (string s)
10299
103100newBlockTags :: [String]
104−newBlockTags = ["haskell","syntaxhighlight","source","gallery"]
101+newBlockTags = ["haskell","syntaxhighlight","source","gallery","references"]
105102
106103isBlockTag' :: Tag String -> Bool
107104isBlockTag' tag@(TagOpen t _) = (isBlockTag tag || t `elem` newBlockTags) &&