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 =
   XMLString.decodeGen HTMLEnt.mapNameToChar