Commit b962bcc6 authored by's avatar
Browse files

Make exactTyCoVarsOfTypes closed over kinds.

parent 4c6e95e4
......@@ -750,7 +750,7 @@ exactTyCoVarsOfType ty
= go ty
go ty | Just ty' <- coreView ty = go ty' -- This is the key line
go (TyVarTy tv) = unitVarSet tv
go (TyVarTy tv) = unitVarSet tv `unionVarSet` go (tyVarKind tv)
go (TyConApp _ tys) = exactTyCoVarsOfTypes tys
go (LitTy {}) = emptyVarSet
go (AppTy fun arg) = go fun `unionVarSet` go arg
Supports Markdown
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