From: Ross Paterson <ross@soi.city.ac.uk>
Date: Sun, 31 Aug 2008 18:00:48 +0000 (+0000)
Subject: non-GHC: add Typeable instance for ForeignPtr
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b5d6f38230b54f905b5ecb029d41f273b2030586;hp=95f618043f31397461dd23762a19039c4aa0a15b;p=ghc-base.git

non-GHC: add Typeable instance for ForeignPtr
---

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")