Dead code elimination

[ghc-hetmet.git] / compiler / typecheck / TcExpr.lhs

diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs
index 14a1d6d..c3bc64b 100644 (file)
--- 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'