git.iko.soy/typeable/html-parse
on master help sign in
Fix: close tag names follow the same syntax as open tags.
0d5475fMatthias Fischmann
Text/HTML/Parser.hs+1−1
compare with master
unifiedsplit
@@ -106,7 +106,7 @@ tagOpen =
106-- TODO: This isn't right
106-- TODO: This isn't right
107endTagOpen :: Parser Token
107endTagOpen :: Parser Token
108endTagOpen = do
108endTagOpen = do
109− name <- takeWhile $ \c -> isAsciiUpper c || isAsciiLower c
109+ name <- takeWhile $ notInClass "\x09\x0a\x0c />"
110 char '>'
110 char '>'
111 return $ TagClose name
111 return $ TagClose name
112
112