@@ -887,7 +887,7 @@ htmlTag :: Monad m
887 => (Tag String -> Bool)
887 => (Tag String -> Bool)
888 -> ParserT [Char] st m (Tag String, String)
888 -> ParserT [Char] st m (Tag String, String)
889htmlTag f = try $ do
889htmlTag f = try $ do
890− lookAhead $ char '<' >> (oneOf "/!?" <|> letter)
890+ lookAhead $ char '<' >> ((oneOf "/!?" >> nonspaceChar) <|> letter)
891 (next : _) <- getInput >>= return . canonicalizeTags . parseTags
891 (next : _) <- getInput >>= return . canonicalizeTags . parseTags
892 guard $ f next
892 guard $ f next
893 -- advance the parser
893 -- advance the parser