X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FTypeable.hs;h=cf48c95c6ae432dc873153955eb2dc6955169838;hb=a5cb875e5159bdd4883fca0df0ef120d51596f3f;hp=cad0b78647f8282a451e6ba573a318960f3d7fa6;hpb=bb916d929d2ebd226eb9a1d0fdb30f73314ef3ec;p=ghc-base.git

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index cad0b78..cf48c95 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -104,7 +104,6 @@ import GHC.IOBase       ( IO, MVar, Handle, block )
 import GHC.ST           ( ST )
 import GHC.STRef        ( STRef )
 import GHC.Ptr          ( Ptr, FunPtr )
-import GHC.ForeignPtr   ( ForeignPtr )
 import GHC.Stable       ( StablePtr, newStablePtr, freeStablePtr,
                           deRefStablePtr, castStablePtrToPtr,
                           castPtrToStablePtr )
@@ -538,7 +537,6 @@ instance Typeable7 (,,,,,,) where
 
 INSTANCE_TYPEABLE1(Ptr,ptrTc,"Ptr")
 INSTANCE_TYPEABLE1(FunPtr,funPtrTc,"FunPtr")
-INSTANCE_TYPEABLE1(ForeignPtr,foreignPtrTc,"ForeignPtr")
 INSTANCE_TYPEABLE1(StablePtr,stablePtrTc,"StablePtr")
 INSTANCE_TYPEABLE1(IORef,iORefTc,"IORef")