diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-09-02 11:35:28 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-09-02 12:28:53 -0400 |
| commit | 3f8d3d844fde31a27643254be69a17128a47d3fe (patch) | |
| tree | dab9eda4c8fa613b02a7dcbcfa26572a8f163e91 /src/Text/Pandoc/Compat | |
| parent | c9a631e4ebe9f3d21ee6187348e7e6007353ed15 (diff) | |
| download | pandoc-3f8d3d844fde31a27643254be69a17128a47d3fe.tar.gz | |
Remove TagSoup compat
We already lower-bound tagsoup at 0.13.7, which means we were always
running the compatibility layer (it was conditional on min value
0.13). Better to just use `lookupEntity` from the library directly, and
convert a string to a char if need be.
Diffstat (limited to 'src/Text/Pandoc/Compat')
| -rw-r--r-- | src/Text/Pandoc/Compat/TagSoupEntity.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/Text/Pandoc/Compat/TagSoupEntity.hs b/src/Text/Pandoc/Compat/TagSoupEntity.hs deleted file mode 100644 index 80985aef9..000000000 --- a/src/Text/Pandoc/Compat/TagSoupEntity.hs +++ /dev/null @@ -1,15 +0,0 @@ -{-# LANGUAGE CPP #-} -module Text.Pandoc.Compat.TagSoupEntity (lookupEntity - ) where - -import qualified Text.HTML.TagSoup.Entity as TE - -lookupEntity :: String -> Maybe Char -#if MIN_VERSION_tagsoup(0,13,0) -lookupEntity = str2chr . TE.lookupEntity - where str2chr :: Maybe String -> Maybe Char - str2chr (Just [c]) = Just c - str2chr _ = Nothing -#else -lookupEntity = TE.lookupEntity -#endif |