module Text.HTML.Tagchup.Character where import qualified Text.HTML.Basic.Character as HTMLChar class C char where fromChar :: Char -> char instance C Char where fromChar :: Char -> Char fromChar = forall a. a -> a id instance C HTMLChar.T where fromChar :: Char -> T fromChar = Char -> T HTMLChar.Unicode