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.
-INSTANCE_TYPEABLE2((,),pairTc,",")
-INSTANCE_TYPEABLE3((,,),tup3Tc,",,")
+INSTANCE_TYPEABLE2((,),pairTc,"(,)")
+INSTANCE_TYPEABLE3((,,),tup3Tc,"(,,)")
+tup4Tc = mkTyCon "(,,,)"
instance Typeable4 (,,,) where
typeOf4 tu = mkTyConApp tup4Tc []
tup5Tc :: TyCon
instance Typeable4 (,,,) where
typeOf4 tu = mkTyConApp tup4Tc []
tup5Tc :: TyCon
+tup5Tc = mkTyCon "(,,,,)"
instance Typeable5 (,,,,) where
typeOf5 tu = mkTyConApp tup5Tc []
tup6Tc :: TyCon
instance Typeable5 (,,,,) where
typeOf5 tu = mkTyConApp tup5Tc []
tup6Tc :: TyCon
-tup6Tc = mkTyCon ",,,,,"
+tup6Tc = mkTyCon "(,,,,,)"
instance Typeable6 (,,,,,) where
typeOf6 tu = mkTyConApp tup6Tc []
tup7Tc :: TyCon
instance Typeable6 (,,,,,) where
typeOf6 tu = mkTyConApp tup6Tc []
tup7Tc :: TyCon
-tup7Tc = mkTyCon ",,,,,,"
+tup7Tc = mkTyCon "(,,,,,,)"
instance Typeable7 (,,,,,,) where
typeOf7 tu = mkTyConApp tup7Tc []
instance Typeable7 (,,,,,,) where
typeOf7 tu = mkTyConApp tup7Tc []