Fix: close tag names follow the same syntax as open tags.
commit0d5475f71f1da9b1936df9697f6a31b196e199fb
authorMatthias Fischmann <mf@zerobuzz.net>
dateFri 30 Dec 2016, 12:42 (10 years ago)
parent96acd53
Text/HTML/Parser.hs+1−1
@@ -106,7 +106,7 @@ tagOpen =
106106-- TODO: This isn't right
107107endTagOpen :: Parser Token
108108endTagOpen = do
109− name <- takeWhile $ \c -> isAsciiUpper c || isAsciiLower c
109+ name <- takeWhile $ notInClass "\x09\x0a\x0c />"
110110 char '>'
111111 return $ TagClose name
112112