X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcExpr.lhs;h=c3bc64bbc31a60578bbcb58ae3f82ddf6b884da6;hb=940524aec90652b5ef81789c9a453c57c0e42cc9;hp=14a1d6d390aac606e6e5122917804958212847a2;hpb=ff8e1d01524b48e028b09e2b04b2e5303cb6d95f;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs
index 14a1d6d..c3bc64b 100644
--- a/compiler/typecheck/TcExpr.lhs
+++ b/compiler/typecheck/TcExpr.lhs
@@ -484,7 +484,6 @@ tcExpr expr@(RecordUpd record_expr hrbinds@(HsRecordBinds rbinds) _ _ _) res_ty
 		 = WpCo $ mkTyConApp co_con scrut_inst_tys
 		 | otherwise
 		 = idHsWrapper
-	scrut_ty = mkTyConApp tycon scrut_inst_tys	-- Type of pattern, the result of the cast
     in
 	-- Phew!
     returnM (mkHsWrap co_fn (RecordUpd (mkLHsWrap scrut_co record_expr') rbinds'