Fixed HTML reader.

2026-08-25 17:56:32 +00:00 · 2017-06-02 10:10:31 +02:00
parent eb6fb62e55
commit e43ea03410
1 changed files with 3 additions and 2 deletions
@@ -924,8 +924,9 @@ isBlockTag t = tagOpen isBlockTagName (const True) t ||
               tagComment (const True) t
                 where isBlockTagName ('?':_) = True
                       isBlockTagName ('!':_) = True
-                       isBlockTagName x       = x `elem` blockTags
-                                             || x `elem` eitherBlockOrInline
+                       isBlockTagName x       = x `Set.member` blockTags
+                                             || x `Set.member`
+                                                       eitherBlockOrInline

 isTextTag :: Tag String -> Bool
 isTextTag = tagText (const True)