@@ -219,7 +219,7 @@ attrValueSQuoted tag attrs name = do
219-- | /§8.2.4.38/: Attribute value (unquoted) state
219-- | /§8.2.4.38/: Attribute value (unquoted) state
220attrValueUnquoted :: TagName -> [Attr] -> AttrName -> Parser Token
220attrValueUnquoted :: TagName -> [Attr] -> AttrName -> Parser Token
221attrValueUnquoted tag attrs name = do
221attrValueUnquoted tag attrs name = do
222− value <- takeTill (inClass "\x09\x0a\x0c >")
222+ value <- takeTill $ isWhitespace `orC` isC '>'
223 id $ (satisfy isWhitespace >> beforeAttrName tag attrs) -- unsure: don't emit?
223 id $ (satisfy isWhitespace >> beforeAttrName tag attrs) -- unsure: don't emit?
224 <|> (char '>' >> return (TagOpen tag (Attr name value : attrs)))
224 <|> (char '>' >> return (TagOpen tag (Attr name value : attrs)))
225 <|> (endOfInput >> return endOfFileToken)
225 <|> (endOfInput >> return endOfFileToken)