module Text.HTML.Basic.String (Encoded, decode, ) where import Text.XML.Basic.String (Encoded, ) import qualified Text.XML.Basic.String as XMLString import qualified Text.HTML.Basic.Character as HTMLChar import qualified Text.HTML.Basic.Entity as HTMLEnt {- | Invalid references are silently skipped. -} decode :: (Encoded -> String) -> [HTMLChar.T] -> String decode :: (Encoded -> Encoded) -> [T] -> Encoded decode = Map Encoded Char -> (Encoded -> Encoded) -> [T] -> Encoded XMLString.decodeGen Map Encoded Char HTMLEnt.mapNameToChar