X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FTypeable.hs-boot;h=da6142e83fdef59b55a00ca8106a92f397f92a98;hb=HEAD;hp=40883897604d7771c1f6a088c700e95ffd8575a6;hpb=10de2c656f74562b662c22928be85e1b3ccda796;p=ghc-base.git

diff --git a/Data/Typeable.hs-boot b/Data/Typeable.hs-boot
index 4088389..da6142e 100644
--- a/Data/Typeable.hs-boot
+++ b/Data/Typeable.hs-boot
@@ -1,17 +1,17 @@
-
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 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