@@ -674,6 +674,8 @@ keyValAttr = try $ do
675 val <- enclosed (char '"') (char '"') litChar
675 val <- enclosed (char '"') (char '"') litChar
676 <|> enclosed (char '\'') (char '\'') litChar
676 <|> enclosed (char '\'') (char '\'') litChar
677+ <|> ("" <$ try (string "\"\""))
678+ <|> ("" <$ try (string "''"))
677 <|> many (escapedChar' <|> noneOf " \t\n\r}")
679 <|> many (escapedChar' <|> noneOf " \t\n\r}")
678 return $ \(id',cs,kvs) ->
680 return $ \(id',cs,kvs) ->
679 case key of
681 case key of