From e43ea03410db11276eff9f8112625415f045eab6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 2 Jun 2017 10:10:31 +0200 Subject: Fixed HTML reader. --- src/Text/Pandoc/Readers/HTML.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Text') 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) -- cgit v1.2.3