From 6208e2b136ad6021dbc89e7dc25cb8e07928413f Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Wed, 29 Aug 2007 17:48:42 +0000 Subject: [PATCH] Fix a bug in RtClosureInspect.cvReconstructType. Test is print025 --- compiler/ghci/RtClosureInspect.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index e68bf88..dbc65d2 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -640,7 +640,8 @@ cvReconstructType hsc_env force mb_ty hval = runTR_maybe hsc_env $ do (signatureType,_) <- instScheme(dataConRepType dc) addConstraint myType signatureType return $ [ appArr (\e->(t,e)) (ptrs clos) i - | (i,t) <- drop extra_args $ zip [0..] subTtypes] + | (i,t) <- drop extra_args $ + zip [0..] (filter isPointed subTtypes)] otherwise -> return [] -- This helper computes the difference between a base type t and the -- 1.7.10.4