Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-kinds
http://hackage.haskell.org/trac/ghc/changeset/1cc5c7a861c9828093e11bf428680bf95b086801 >--------------------------------------------------------------- commit 1cc5c7a861c9828093e11bf428680bf95b086801 Author: Julien Cretin <g...@ia0.eu> Date: Wed Sep 7 17:23:14 2011 +0200 hsLTyVarKind >--------------------------------------------------------------- compiler/hsSyn/HsTypes.lhs | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/compiler/hsSyn/HsTypes.lhs b/compiler/hsSyn/HsTypes.lhs index 5b2c4c0..e002d88 100644 --- a/compiler/hsSyn/HsTypes.lhs +++ b/compiler/hsSyn/HsTypes.lhs @@ -24,7 +24,7 @@ module HsTypes ( mkExplicitHsForAllTy, mkImplicitHsForAllTy, hsExplicitTvs, hsTyVarName, hsTyVarNames, replaceTyVarName, replaceLTyVarName, - hsTyVarKind, hsTyVarNameKind, + hsTyVarKind, hsLTyVarKind, hsTyVarNameKind, hsLTyVarName, hsLTyVarNames, hsLTyVarLocName, hsLTyVarLocNames, splitHsInstDeclTy, splitHsFunType, splitHsAppTys, mkHsAppTys, mkHsOpTy, @@ -307,6 +307,9 @@ hsTyVarKind :: HsTyVarBndr name -> Kind hsTyVarKind (UserTyVar _ k) = k hsTyVarKind (KindedTyVar _ _ k) = k +hsLTyVarKind :: LHsTyVarBndr name -> Kind +hsLTyVarKind = hsTyVarKind . unLoc + hsTyVarNameKind :: HsTyVarBndr name -> (name, Kind) hsTyVarNameKind (UserTyVar n k) = (n,k) hsTyVarNameKind (KindedTyVar n _ k) = (n,k) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
