From: simonpj@microsoft.com <unknown>
Date: Thu, 10 May 2007 09:30:01 +0000 (+0000)
Subject: Dead code elimination
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a1d112a19d73389723351789392fd5fd5951e0c4

Dead code elimination
---

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'