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

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