@@ -506,7 +506,7 @@ identifierAttr = try $ do
506classAttr :: Parser [Char] st (String, [String], [a])
506classAttr :: Parser [Char] st (String, [String], [a])
507classAttr = try $ do
507classAttr = try $ do
509− result <- many1 $ noneOf " \t\n\r}"
509+ result <- identifier
510 return ("",[result],[])
510 return ("",[result],[])
512keyValAttr :: Parser [Char] st (String, [a], [(String, String)])
512keyValAttr :: Parser [Char] st (String, [a], [(String, String)])