From bf003a489bd426bfd44925e80b8442a7f8ea8d1c Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Wed, 20 Sep 2006 18:24:02 +0000 Subject: [PATCH] Missing change re additional info in TcTyThing Mon Sep 18 17:28:37 EDT 2006 Manuel M T Chakravarty * Missing change re additional info in TcTyThing Mon Aug 7 14:22:08 EDT 2006 Manuel M T Chakravarty * Missing change re additional info in TcTyThing --- compiler/typecheck/TcSplice.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs index d59b0f8..73d9b5a 100644 --- a/compiler/typecheck/TcSplice.lhs +++ b/compiler/typecheck/TcSplice.lhs @@ -567,7 +567,7 @@ reifyThing (AGlobal (ADataCon dc)) ; fix <- reifyFixity name ; return (TH.DataConI (reifyName name) ty (reifyName (dataConTyCon dc)) fix) } -reifyThing (ATcId {tct_id = id, tct_ty = ty}) +reifyThing (ATcId {tct_id = id, tct_type = ty}) = do { ty1 <- zonkTcType ty -- Make use of all the info we have, even -- though it may be incomplete ; ty2 <- reifyType ty1 -- 1.7.10.4