From e339d27dc714a2ddd5043ead2a359b4f6d45e9a7 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 11 Jul 2004 09:20:07 +0000
Subject: [PATCH] [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.

---
 Data/Typeable.hs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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