From c5a16ed979fe72e6a20cb237ed0e6fad055b799c Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Sat, 20 Mar 2004 13:31:06 +0000
Subject: [PATCH] [project @ 2004-03-20 13:31:06 by ross] revert a couple of
 tcnames for greater consistency (fixes dynamic001).

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

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 4eef681..1e997b8 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -47,7 +47,7 @@ module Data.Typeable
 	tyconString,	-- :: TyCon   -> String
 
 	-- * The other Typeable classes
-	-- | The general instances are provided for GHC only.
+	-- | /Note:/ The general instances are provided for GHC only.
 	Typeable1( typeOf1 ),	-- :: t a -> TypeRep
 	Typeable2( typeOf2 ),	-- :: t a b -> TypeRep
 	Typeable3( typeOf3 ),	-- :: t a b c -> TypeRep
@@ -59,8 +59,8 @@ module Data.Typeable
 	gcast2,			-- :: ... => c (t a b) -> Maybe (c (t' a b))
 
 	-- * Default instances
-	-- | These are not needed by GHC, for which these instances are
-	-- generated by general instance declarations.
+	-- | /Note:/ These are not needed by GHC, for which these instances
+	-- are generated by general instance declarations.
 	typeOfDefault,	-- :: (Typeable1 t, Typeable a) => t a -> TypeRep
 	typeOf1Default,	-- :: (Typeable2 t, Typeable a) => t a b -> TypeRep
 	typeOf2Default,	-- :: (Typeable2 t, Typeable a) => t a b c -> TypeRep
@@ -444,8 +444,9 @@ INSTANCE_TYPEABLE1(Maybe,maybeTc,"Maybe")
 INSTANCE_TYPEABLE1(Ratio,ratioTc,"Ratio")
 INSTANCE_TYPEABLE2(Either,eitherTc,"Either")
 INSTANCE_TYPEABLE2((->),funTc,"->")
+INSTANCE_TYPEABLE1(IO,ioTc,"IO")
 INSTANCE_TYPEABLE0((),unitTc,"()")
-INSTANCE_TYPEABLE2((,),pairTc,"(,)")
+INSTANCE_TYPEABLE2((,),pairTc,",")
 INSTANCE_TYPEABLE3((,,),tup3Tc,",,")
 
 tup4Tc :: TyCon
@@ -472,7 +473,6 @@ tup7Tc = mkTyCon ",,,,,"
 instance Typeable7 (,,,,,,) where
   typeOf7 tu = mkAppTy tup7Tc []
 
-INSTANCE_TYPEABLE1(IO,ioTc,"System.IO.IO")
 INSTANCE_TYPEABLE1(Ptr,ptrTc,"Foreign.Ptr.Ptr")
 INSTANCE_TYPEABLE1(StablePtr,stableptrTc,"Foreign.StablePtr.StablePtr")
 INSTANCE_TYPEABLE1(IORef,iorefTc,"Data.IORef.IORef")
-- 
1.7.10.4