From b5d6f38230b54f905b5ecb029d41f273b2030586 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Sun, 31 Aug 2008 18:00:48 +0000 Subject: [PATCH] non-GHC: add Typeable instance for ForeignPtr --- Data/Typeable.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Data/Typeable.hs b/Data/Typeable.hs index ee9e89a..6047823 100644 --- a/Data/Typeable.hs +++ b/Data/Typeable.hs @@ -536,6 +536,9 @@ instance Typeable7 (,,,,,,) where INSTANCE_TYPEABLE1(Ptr,ptrTc,"Ptr") INSTANCE_TYPEABLE1(FunPtr,funPtrTc,"FunPtr") +#ifndef __GLASGOW_HASKELL__ +INSTANCE_TYPEABLE1(ForeignPtr,foreignPtrTc,"ForeignPtr") +#endif INSTANCE_TYPEABLE1(StablePtr,stablePtrTc,"StablePtr") INSTANCE_TYPEABLE1(IORef,iORefTc,"IORef") -- 1.7.10.4