From 98f5891eff7b3b207b21cdb4f75ee4f99eed85ce Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 5 Feb 2008 10:39:04 +0000 Subject: [PATCH] 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)" --- Data/Typeable.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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: -- 1.7.10.4