From ae5a7e5fe428fdf56c4c5228d5ff13b2e6c3f885 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Fri, 28 Sep 2007 09:19:41 +0000 Subject: [PATCH] Following an indirection doesn't count as a RTTI step --- 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 4f9588f..c495229 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -587,7 +587,7 @@ cvObtainTerm hsc_env bound force mb_ty hval = runTR hsc_env $ do -- and showing the '_' is more useful. t | isThunk t && force -> seq a $ go (pred bound) tv ty a -- We always follow indirections - Indirection _ -> go (pred bound) tv ty $! (ptrs clos ! 0) + Indirection _ -> go bound tv ty $! (ptrs clos ! 0) -- The interesting case Constr -> do Right dcname <- dataConInfoPtrToName (infoPtr clos) -- 1.7.10.4