25473dc · typeable/html-parse

git.iko.soy/typeable/html-parse

Fix tag name

commit25473dc6ff484310c089d8f1fbf877742e5fda82 authorBen Gamari <ben@smart-cactus.org> dateWed 6 Apr 2016, 02:42 (11 years ago) parentf0e1244

1 file changed+1−1

unifiedsplit

Text/HTML/Parser.hs+1−1

@@ -167,7 +167,7 @@ afterAttrValueQuoted :: TagName -> [Attr] -> AttrName -> AttrValue -> Parser Tok

167167afterAttrValueQuoted tag attrs name value =

168168 (satisfy (inClass "\x09\x0a\x0c ") >> beforeAttrName tag attrs')

169169 <|> (char '/' >> selfClosingStartTag tag attrs')

170− <|> (char '>' >> return (TagOpen name attrs'))

170+ <|> (char '>' >> return (TagOpen tag attrs'))

171171 where attrs' = Attr name value : attrs

172172

173173-- | 8.2.4.45: Markup declaration open state