[project @ 2004-07-11 09:20:07 by panne]

Use "flat" names for the type constructors of Ptr/StablePtr/IORef. This might be
debatable, but at least it is consistent with the rest of the types.

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index fe55219..3e5b7c2 100644 (file)
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -484,9 +484,9 @@ instance Typeable7 (,,,,,,) where
   typeOf7 tu = mkTyConApp tup7Tc []
 
 #endif /* __NHC__ */
-INSTANCE_TYPEABLE1(Ptr,ptrTc,"Foreign.Ptr.Ptr")
-INSTANCE_TYPEABLE1(StablePtr,stableptrTc,"Foreign.StablePtr.StablePtr")
-INSTANCE_TYPEABLE1(IORef,iorefTc,"Data.IORef.IORef")
+INSTANCE_TYPEABLE1(Ptr,ptrTc,"Ptr")
+INSTANCE_TYPEABLE1(StablePtr,stableptrTc,"StablePtr")
+INSTANCE_TYPEABLE1(IORef,iorefTc,"IORef")
 
 -------------------------------------------------------
 --