module Text.HTML.WraXML.Entity
   (Name, HTMLEnt.mapNameToChar, mapCharToName, ) where

import qualified Text.HTML.Basic.Entity as HTMLEnt
import qualified Data.Map as Map

import Data.Tuple.HT (swap, )


type Name = String

mapCharToName :: Map.Map Char Name
mapCharToName =
   Map.fromList $ map swap HTMLEnt.listInternetExploder