diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcExpr.lhs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs index 14a1d6d390..c3bc64bbc3 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' |