X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FForeignPtr.hs;h=f6a61c1c070cfeb22232cf5fad91bdcc1a9f9e58;hb=6350abd168b45763b2db174ebd3320bfaf705eec;hp=fac44613ab684b895d44cfa238147190d71a54d8;hpb=aaf764b3ad8b1816d68b5f27299eac125f08e1a5;p=ghc-base.git

diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs
index fac4461..f6a61c1 100644
--- a/GHC/ForeignPtr.hs
+++ b/GHC/ForeignPtr.hs
@@ -32,7 +32,6 @@ module GHC.ForeignPtr
 import Control.Monad 	( sequence_ )
 import Foreign.Ptr
 import Foreign.Storable
-import Data.Typeable
 
 import GHC.List  	( null )
 import GHC.Base
@@ -70,9 +69,6 @@ instance Ord (ForeignPtr a) where
 instance Show (ForeignPtr a) where
     showsPrec p f = showsPrec p (unsafeForeignPtrToPtr f)
 
-#include "Typeable.h"
-INSTANCE_TYPEABLE1(ForeignPtr,foreignPtrTc,"ForeignPtr")
-
 -- |A Finalizer is represented as a pointer to a foreign function that, at
 -- finalisation time, gets as an argument a plain pointer variant of the
 -- foreign pointer that the finalizer is associated with.