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 Char Name
mapCharToName =
   forall k a. Ord k => [(k, a)] -> Map k a
Map.fromList forall a b. (a -> b) -> a -> b
$ forall a b. (a -> b) -> [a] -> [b]
map forall a b. (a, b) -> (b, a)
swap [(Name, Char)]
HtmlEnt.listInternetExploder