From bf64104355b284aa7513ba0ff160a2f0df942ea9 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Thu, 24 May 2007 11:46:21 +0000 Subject: [PATCH] wibble --- compiler/ghci/RtClosureInspect.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index bc6cc47..cb13d45 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -569,8 +569,8 @@ cvReconstructType hsc_env force mb_ty hval = runTR hsc_env $ do (dataConRepArgTys dc) -- It is vital for newtype reconstruction that the unification step -- is done right here, _before_ the subterms are RTTI reconstructed - let myType = mkFunTys subTtypes tv - signatureType <- instScheme(dataConRepType dc) + let myType = mkFunTys subTtypes tv + (signatureType,_) <- instScheme(dataConRepType dc) addConstraint myType signatureType return $ map (\(I# i#,t) -> case ptrs clos of (Array _ _ ptrs#) -> case indexArray# ptrs# i# of -- 1.7.10.4