diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 218ce3f5a..c1bdb4d09 100644 --- 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) |