@@ -270,7 +270,7 @@ commentStartDash =
270-- | /§8.2.4.45/: Comment state
270-- | /§8.2.4.45/: Comment state
271comment :: Builder -> Parser Token
271comment :: Builder -> Parser Token
272comment content0 = do
272comment content0 = do
273− content <- B.fromText <$> takeWhile (notInClass "-\x00<")
273+ content <- B.fromText <$> takeWhile (not . (isC '-' `orC` isC '\x00' `orC` isC '<'))
274 id $ (char '<' >> commentLessThan (content0 <> content <> "<"))
274 id $ (char '<' >> commentLessThan (content0 <> content <> "<"))
275 <|> (char '-' >> commentEndDash (content0 <> content))
275 <|> (char '-' >> commentEndDash (content0 <> content))
276 <|> (char '\x00' >> comment (content0 <> content <> B.singleton '\xfffd'))
276 <|> (char '\x00' >> comment (content0 <> content <> B.singleton '\xfffd'))