@@ -182,6 +182,7 @@ markupDeclOpen =
183 comment = string "--" >> commentStart
183 comment = string "--" >> commentStart
184 docType = do
184 docType = do
185+ -- switching this to asciiCI slowed things down by a factor of two
185 s <- take 7
186 s <- take 7
186 guard $ T.toLower s == "doctype"
187 guard $ T.toLower s == "doctype"