Fixed HTML reader.

jgm · Jun 2, 2017 · e43ea03 · e43ea03
1 parent eb6fb62
commit e43ea03
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
@@ -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)