@@ -535,6 +535,7 @@ link = try $ do
535image :: Parser [Char] ParserState Inlines
535image :: Parser [Char] ParserState Inlines
536image = try $ do
536image = try $ do
537 char '!' >> notFollowedBy space
537 char '!' >> notFollowedBy space
538+ _ <- attributes -- ignore for now, until we have image attributes
538 src <- manyTill anyChar' (lookAhead $ oneOf "!(")
539 src <- manyTill anyChar' (lookAhead $ oneOf "!(")
539 alt <- option "" (try $ (char '(' >> manyTill anyChar' (char ')')))
540 alt <- option "" (try $ (char '(' >> manyTill anyChar' (char ')')))