@@ -171,7 +171,7 @@ beforeAttrName tag attrs = do
171-- | /§8.2.4.33/: Attribute name state
171-- | /§8.2.4.33/: Attribute name state
172attrName :: TagName -> [Attr] -> Parser Token
172attrName :: TagName -> [Attr] -> Parser Token
173attrName tag attrs = do
173attrName tag attrs = do
174− name <- takeWhile $ notInClass "\x09\x0a\x0c /=>"
174+ name <- takeWhile $ not . (isWhitespace `orC` isC '/' `orC` isC '=' `orC` isC '>')
175 id $ (endOfInput >> afterAttrName tag attrs name)
175 id $ (endOfInput >> afterAttrName tag attrs name)
176 <|> (char '=' >> beforeAttrValue tag attrs name)
176 <|> (char '=' >> beforeAttrValue tag attrs name)
177 <|> try (do mc <- peekChar
177 <|> try (do mc <- peekChar