98e2567 · typeable/html-parse

git.iko.soy/typeable/html-parse

Avoid notInClass in attrName

commit98e25674182c7c86a55e2bd19b15ceb5256a96a6 authorBen Gamari <ben@smart-cactus.org> dateFri 2 Feb 2018, 20:55 (9 years ago) parent9e43188

1 file changed+1−1

unifiedsplit

Text/HTML/Parser.hs+1−1

@@ -171,7 +171,7 @@ beforeAttrName tag attrs = do

171171-- | /§8.2.4.33/: Attribute name state

172172attrName :: TagName -> [Attr] -> Parser Token

173173attrName tag attrs = do

174− name <- takeWhile $ notInClass "\x09\x0a\x0c /=>"

174+ name <- takeWhile $ not . (isWhitespace `orC` isC '/' `orC` isC '=' `orC` isC '>')

175175 id $ (endOfInput >> afterAttrName tag attrs name)

176176 <|> (char '=' >> beforeAttrValue tag attrs name)

177177 <|> try (do mc <- peekChar