X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnTypes.lhs;h=c30f1b72b52dd865f4d8ee5f65ed7f528f812598;hb=36436bc62a98f53e126ec02fe946337c4c766c3f;hp=31279ff1ec32f494a8747775d0688040b81d7f0a;hpb=8761b73561019d5514194fc8b0eee2b13f0e0ec9;p=ghc-hetmet.git diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs index 31279ff..c30f1b7 100644 --- a/ghc/compiler/rename/RnTypes.lhs +++ b/ghc/compiler/rename/RnTypes.lhs @@ -99,7 +99,7 @@ rnHsType doc (HsForAllTy Implicit _ ctxt ty) -- class signatures: -- class C a where { op :: a -> a } forall_tyvars = filter (not . (`elemLocalRdrEnv` name_env) . unLoc) mentioned - tyvar_bndrs = [ L loc (UserTyVar v) | (L loc v) <- forall_tyvars ] + tyvar_bndrs = userHsTyVarBndrs forall_tyvars in rnForAll doc Implicit tyvar_bndrs ctxt ty