diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-03-13 18:39:10 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-14 19:36:04 -0400 |
| commit | 1de3ab4a147eeb0b34b24a3c0e91f174e6e5cb79 (patch) | |
| tree | 548bcaaeaa701e5b11d6dedf1f89509a031d3360 /compiler/typecheck | |
| parent | 49e9d7395a13584f15798bce1601b8d3a6633f11 (diff) | |
| download | haskell-1de3ab4a147eeb0b34b24a3c0e91f174e6e5cb79.tar.gz | |
Remove unused field var_inline (#17915)
Diffstat (limited to 'compiler/typecheck')
| -rw-r--r-- | compiler/typecheck/TcHsSyn.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/typecheck/TcHsSyn.hs b/compiler/typecheck/TcHsSyn.hs index d9626c2854..7fbed31dff 100644 --- a/compiler/typecheck/TcHsSyn.hs +++ b/compiler/typecheck/TcHsSyn.hs @@ -553,13 +553,12 @@ zonk_bind env bind@(PatBind { pat_lhs = pat, pat_rhs = grhss , pat_ext = NPatBindTc fvs new_ty }) } zonk_bind env (VarBind { var_ext = x - , var_id = var, var_rhs = expr, var_inline = inl }) + , var_id = var, var_rhs = expr }) = do { new_var <- zonkIdBndr env var ; new_expr <- zonkLExpr env expr ; return (VarBind { var_ext = x , var_id = new_var - , var_rhs = new_expr - , var_inline = inl }) } + , var_rhs = new_expr }) } zonk_bind env bind@(FunBind { fun_id = L loc var , fun_matches = ms |