git.iko.soy/typeable/html-parse
on master help sign in
Use char '-' >> char '-' instead of string in comment
4678ed2Ben Gamari
Text/HTML/Parser.hs+1−1
compare with master
unifiedsplit
@@ -245,7 +245,7 @@ markupDeclOpen =
245 <|> try docType
245 <|> try docType
246 <|> bogusComment mempty
246 <|> bogusComment mempty
247 where
247 where
248− comment_ = string "--" >> commentStart
248+ comment_ = char '-' >> char '-' >> commentStart
249 docType = do
249 docType = do
250 -- switching this to asciiCI slowed things down by a factor of two
250 -- switching this to asciiCI slowed things down by a factor of two
251 s <- take 7
251 s <- take 7