Skip to content
Snippets Groups Projects
Commit 439ddf91 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Fix Trac #7280 by zonking the final_quant_candidates in simplifyInfer

This fix is only needed on the branch; HEAD already works differently
(and correctly).
parent efb5e36e
No related merge requests found
......@@ -394,6 +394,8 @@ simplifyInfer _top_lvl apply_mr name_taus (untch,wanteds)
final_quant_candidates = map ctPred $ bagToList $
keepWanted (wc_flat quant_candidates_transformed)
-- NB: Already the fixpoint of any unifications that may have happened
-- But need to zonk out the flatten-skolems
; final_quant_candidates <- mapM zonkTcType final_quant_candidates
; gbl_tvs <- tcGetGlobalTyVars -- TODO: can we just use untch instead of gbl_tvs?
; zonked_tau_tvs <- zonkTyVarsAndFV zonked_tau_tvs
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment