-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
module Data.Typeable where
+import Data.Maybe
import GHC.Base
-import GHC.Show
data TypeRep
data TyCon
mkTyCon :: String -> TyCon
mkTyConApp :: TyCon -> [TypeRep] -> TypeRep
-showsTypeRep :: TypeRep -> ShowS
+
+cast :: (Typeable a, Typeable b) => a -> Maybe b
class Typeable a where
typeOf :: a -> TypeRep