From 9608803049b49cacef9c452d079693a1111be036 Mon Sep 17 00:00:00 2001 From: Max Bolingbroke Date: Thu, 31 Jul 2008 01:23:42 +0000 Subject: [PATCH] Minor refactoring in RtClosureInspect --- compiler/ghci/RtClosureInspect.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 509eb99..a62e8ed 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -445,7 +445,7 @@ cPprTermBase y = isTupleTy ty = fromMaybe False $ do (tc,_) <- splitTyConApp_maybe ty - return (tc `elem` (fst.unzip.elems) boxedTupleArr) + return (isBoxedTupleTyCon tc) isTyCon a_tc ty = fromMaybe False $ do (tc,_) <- splitTyConApp_maybe ty -- 1.7.10.4