diff options
Diffstat (limited to 'compiler/typecheck/TcBinds.hs')
-rw-r--r-- | compiler/typecheck/TcBinds.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcBinds.hs b/compiler/typecheck/TcBinds.hs index 48abcc805c..f927ffa2df 100644 --- a/compiler/typecheck/TcBinds.hs +++ b/compiler/typecheck/TcBinds.hs @@ -653,7 +653,7 @@ tcPolyInfer rec_tc prag_fn tc_sig_fn mono bind_list sig_qtvs = [ tv | (_, Just sig, _) <- mono_infos , (_, tv) <- sig_tvs sig ] ; traceTc "simplifyInfer call" (ppr name_taus $$ ppr wanted) - ; (qtvs, givens, _mr_bites, ev_binds) + ; (qtvs, givens, ev_binds) <- simplifyInfer tclvl mono sig_qtvs name_taus wanted ; let inferred_theta = map evVarPred givens |