Commit 8417e866 authored by Matthew Pickering's avatar Matthew Pickering Committed by Marge Bot

Don't retain reference to whole TcLclEnv in SkolemTV

parent 898afe90
......@@ -542,7 +542,8 @@ tcInstSkolTyVarsPushLevel :: Bool -- True <=> make "super skolem"
-- See Note [Skolemising type variables]
tcInstSkolTyVarsPushLevel overlappable subst tvs
= do { tc_lvl <- getTcLevel
; let pushed_lvl = pushTcLevel tc_lvl
-- Do not retain the whole TcLclEnv
; let !pushed_lvl = pushTcLevel tc_lvl
; tcInstSkolTyVarsAt pushed_lvl overlappable subst tvs }
tcInstSkolTyVarsAt :: TcLevel -> Bool
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment