@@ -506,7 +506,7 @@ identifierAttr = try $ do
506506classAttr :: Parser [Char] st (String, [String], [a])
507507classAttr = try $ do
508508 char '.'
509− result <- identifier
509+ result <- many1 $ noneOf " \t\n\r}"
510510 return ("",[result],[])
511511
512512keyValAttr :: Parser [Char] st (String, [a], [(String, String)])