@@ -924,8 +924,9 @@ isBlockTag t = tagOpen isBlockTagName (const True) t ||
924924 tagComment (const True) t
925925 where isBlockTagName ('?':_) = True
926926 isBlockTagName ('!':_) = True
927− isBlockTagName x = x `elem` blockTags
928− || x `elem` eitherBlockOrInline
927+ isBlockTagName x = x `Set.member` blockTags
928+ || x `Set.member`
929+ eitherBlockOrInline
929930
930931isTextTag :: Tag String -> Bool
931932isTextTag = tagText (const True)