    {-# 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