X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FTypeable.hs-boot;h=da6142e83fdef59b55a00ca8106a92f397f92a98;hb=41e8fba828acbae1751628af50849f5352b27873;hp=d9bc37356650ce2edcfa52269cfff8642ab67a87;hpb=5e70ec8f27f4f62d9f1137e931b4d64d37eb221e;p=ghc-base.git

diff --git a/Data/Typeable.hs-boot b/Data/Typeable.hs-boot
index d9bc373..da6142e 100644
--- a/Data/Typeable.hs-boot
+++ b/Data/Typeable.hs-boot
@@ -1,17 +1,17 @@
-
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# 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