X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=Data%2FTypeable.hs-boot;h=9da3620c9ccdaed00106849336e40fb42a914b3f;hb=748003827970cfc57cb26db256b72d16e504bb37;hp=5a2989c6aab2f295b32d30613e6c4c6b90a74fe8;hpb=5be79ed580000c45c15ac3ba50dcb48d8fcaed1e;p=ghc-base.git

diff --git a/Data/Typeable.hs-boot b/Data/Typeable.hs-boot
index 5a2989c..9da3620 100644
--- a/Data/Typeable.hs-boot
+++ b/Data/Typeable.hs-boot
@@ -1,15 +1,18 @@
 
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
 
 module Data.Typeable where
 
+import Data.Maybe
 import GHC.Base
 
 data TypeRep
 data TyCon
 
-mkTyCon :: String -> TyCon
-mkTyConApp :: TyCon -> [TypeRep] -> TypeRep
+mkTyCon      :: String -> TyCon
+mkTyConApp   :: TyCon -> [TypeRep] -> TypeRep
+
+cast :: (Typeable a, Typeable b) => a -> Maybe b
 
 class Typeable a where
   typeOf :: a -> TypeRep