@@ -924,8 +924,9 @@ isBlockTag t = tagOpen isBlockTagName (const True) t ||
924 tagComment (const True) t
924 tagComment (const True) t
925 where isBlockTagName ('?':_) = True
925 where isBlockTagName ('?':_) = True
926 isBlockTagName ('!':_) = True
926 isBlockTagName ('!':_) = True
927− isBlockTagName x = x `elem` blockTags
927+ isBlockTagName x = x `Set.member` blockTags
928− || x `elem` eitherBlockOrInline
929+ eitherBlockOrInline
930isTextTag :: Tag String -> Bool
931isTextTag :: Tag String -> Bool
931isTextTag = tagText (const True)
932isTextTag = tagText (const True)