Comments only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 22 Dec 2017 17:49:41 +0000 (17:49 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 3 Jan 2018 11:26:20 +0000 (11:26 +0000)
compiler/typecheck/TcSimplify.hs

index 56d6c78..f1d7e9a 100644 (file)
@@ -1086,6 +1086,11 @@ decideQuantifiedTyVars mono_tvs name_taus psigs candidates
 
        ; qtvs <- quantifyTyVars mono_tvs dvs_plus
        ; return (qtvs, co_vars) }
+         -- Return all the CoVars that (transitively) might be mentioned
+         -- in the tau_tys etc.  We don't need to do a closeOverKinds on
+         -- co_vars to get the transitive ones, becuase the grown_tvs
+         -- are already closed over kinds, and hence contain all such
+         -- co_vars
 
 ------------------
 growThetaTyVars :: ThetaType -> TyCoVarSet -> TyCoVarSet