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 (file)
--- 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: