From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 5 Feb 2008 10:39:04 +0000 (+0000)
Subject: FIX dynamic001 dynamic002: isTupleTyCon had rotted
X-Git-Tag: 2008-05-28~77
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=98f5891eff7b3b207b21cdb4f75ee4f99eed85ce;p=ghc-base.git

FIX dynamic001 dynamic002: isTupleTyCon had rotted
In the patch "Tuple tycons have parens around their names", the names
of the tuple tycons were changed to include parens, but isTupleTyCon
was not updated to match, which made tuple types show as "(,) a b"
rather than "(a,b)"
---

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index f94fff8..3a85c33 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -283,8 +283,8 @@ instance Show TyCon where
   showsPrec _ (TyCon _ s) = showString s
 
 isTupleTyCon :: TyCon -> Bool
-isTupleTyCon (TyCon _ (',':_)) = True
-isTupleTyCon _		       = False
+isTupleTyCon (TyCon _ ('(':',':_)) = True
+isTupleTyCon _		           = False
 
 -- Some (Show.TypeRep) helpers: