From a1d112a19d73389723351789392fd5fd5951e0c4 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 10 May 2007 09:30:01 +0000
Subject: [PATCH] Dead code elimination

---
 compiler/typecheck/TcExpr.lhs |    1 -
 1 file changed, 1 deletion(-)

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' 
-- 
1.7.10.4