From: panne <unknown>
Date: Sun, 11 Jul 2004 09:20:07 +0000 (+0000)
Subject: [project @ 2004-07-11 09:20:07 by panne]
X-Git-Tag: nhc98-1-18-release~296
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e339d27dc714a2ddd5043ead2a359b4f6d45e9a7;p=ghc-base.git

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