The body of a for-all should be of kind *
MERGE TO STABLE
= kcHsTyVars tv_names `thenNF_Tc` \ kind_env ->
tcExtendKindEnv kind_env $
kcHsContext context `thenTc_`
- kcHsType ty `thenTc_`
+ kcLiftedType ty `thenTc_`
+ -- The body of a forall must be of kind *
+ -- In principle, I suppose, we could allow unlifted types,
+ -- but it seems simpler to stick to lifted types for now.
returnTc liftedTypeKind
---------------------------