diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-06-02 10:10:31 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-02 10:10:31 +0200 |
| commit | e43ea03410db11276eff9f8112625415f045eab6 (patch) | |
| tree | ed49354c4c20d50457739c74eb286661b379cf6a /src/Text/Pandoc/Readers/HTML.hs | |
| parent | eb6fb62e55656de796618203a15c87c43458e923 (diff) | |
| download | pandoc-e43ea03410db11276eff9f8112625415f045eab6.tar.gz | |
Fixed HTML reader.
Diffstat (limited to 'src/Text/Pandoc/Readers/HTML.hs')
| -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) |