@@ -167,7 +167,7 @@ afterAttrValueQuoted :: TagName -> [Attr] -> AttrName -> AttrValue -> Parser Tok
167afterAttrValueQuoted tag attrs name value =
167afterAttrValueQuoted tag attrs name value =
168 (satisfy (inClass "\x09\x0a\x0c ") >> beforeAttrName tag attrs')
168 (satisfy (inClass "\x09\x0a\x0c ") >> beforeAttrName tag attrs')
169 <|> (char '/' >> selfClosingStartTag tag attrs')
169 <|> (char '/' >> selfClosingStartTag tag attrs')
170− <|> (char '>' >> return (TagOpen name attrs'))
170+ <|> (char '>' >> return (TagOpen tag attrs'))
171 where attrs' = Attr name value : attrs
171 where attrs' = Attr name value : attrs
173-- | 8.2.4.45: Markup declaration open state
173-- | 8.2.4.45: Markup declaration open state