MediaWiki reader: Allow Image: for images.

Closes #971.
This commit is contained in:
John MacFarlane 2013-09-06 15:40:08 -07:00
parent f49749c46d
commit 728e47ae15

View file

@ -523,7 +523,7 @@ endline = () <$ try (newline <*
image :: MWParser Inlines image :: MWParser Inlines
image = try $ do image = try $ do
sym "[[" sym "[["
sym "File:" sym "File:" <|> sym "Image:"
fname <- many1 (noneOf "|]") fname <- many1 (noneOf "|]")
_ <- many (try $ char '|' *> imageOption) _ <- many (try $ char '|' *> imageOption)
caption <- (B.str fname <$ sym "]]") caption <- (B.str fname <$ sym "]]")