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