From: simonpj@microsoft <unknown>
Date: Thu, 20 Dec 2007 17:18:12 +0000 (+0000)
Subject: Tuple tycons have parens around their names
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6f77dd18e9406d91ec87c1695a09c09fbd8d0b5d;p=ghc-base.git

Tuple tycons have parens around their names

The name of the pair TyCon, in the Typeable instance,
should be "(,)" not ",".

Don't merge to 6.8; it's a minor API change.
---

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index a96f2e9..f94fff8 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -519,29 +519,29 @@ INSTANCE_TYPEABLE3(STArray,sTArrayTc,"STArray")
 #endif
 
 #ifndef __NHC__
-INSTANCE_TYPEABLE2((,),pairTc,",")
-INSTANCE_TYPEABLE3((,,),tup3Tc,",,")
+INSTANCE_TYPEABLE2((,),pairTc,"(,)")
+INSTANCE_TYPEABLE3((,,),tup3Tc,"(,,)")
 
 tup4Tc :: TyCon
-tup4Tc = mkTyCon ",,,"
+tup4Tc = mkTyCon "(,,,)"
 
 instance Typeable4 (,,,) where
   typeOf4 tu = mkTyConApp tup4Tc []
 
 tup5Tc :: TyCon
-tup5Tc = mkTyCon ",,,,"
+tup5Tc = mkTyCon "(,,,,)"
 
 instance Typeable5 (,,,,) where
   typeOf5 tu = mkTyConApp tup5Tc []
 
 tup6Tc :: TyCon
-tup6Tc = mkTyCon ",,,,,"
+tup6Tc = mkTyCon "(,,,,,)"
 
 instance Typeable6 (,,,,,) where
   typeOf6 tu = mkTyConApp tup6Tc []
 
 tup7Tc :: TyCon
-tup7Tc = mkTyCon ",,,,,,"
+tup7Tc = mkTyCon "(,,,,,,)"
 
 instance Typeable7 (,,,,,,) where
   typeOf7 tu = mkTyConApp tup7Tc []