diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-08-28 19:26:53 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-08-30 06:15:21 -0400 |
| commit | c0956c14f49b85326d81d2c2fa2afb2c40165721 (patch) | |
| tree | 304603232a7c1409b05d3ac2c00676d31e333825 | |
| parent | 78afc2c92f94c7bbb94d774adc577aa039119172 (diff) | |
| download | haskell-c0956c14f49b85326d81d2c2fa2afb2c40165721.tar.gz | |
Remove HsUtils/userHsLTyVarBndrs
This patch removes 'userHsLTyVarBndrs' and 'userHsTyVarBndrs' from HsUtils.
These helper functions were not used anywhere.
| -rw-r--r-- | compiler/hsSyn/HsUtils.hs | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/compiler/hsSyn/HsUtils.hs b/compiler/hsSyn/HsUtils.hs index 6823aa1553..f3bba0d6a8 100644 --- a/compiler/hsSyn/HsUtils.hs +++ b/compiler/hsSyn/HsUtils.hs @@ -56,7 +56,7 @@ module HsUtils( mkBigLHsVarTup, mkBigLHsTup, mkBigLHsVarPatTup, mkBigLHsPatTup, -- Types - mkHsAppTy, mkHsAppKindTy, userHsTyVarBndrs, userHsLTyVarBndrs, + mkHsAppTy, mkHsAppKindTy, mkLHsSigType, mkLHsSigWcType, mkClassOpSigs, mkHsSigEnv, nlHsAppTy, nlHsAppKindTy, nlHsTyVar, nlHsFunTy, nlHsParTy, nlHsTyConApp, @@ -368,17 +368,6 @@ mkHsString s = HsString NoSourceText (mkFastString s) mkHsStringPrimLit :: FastString -> HsLit (GhcPass p) mkHsStringPrimLit fs = HsStringPrim NoSourceText (bytesFS fs) -------------- -userHsLTyVarBndrs :: SrcSpan -> [Located (IdP (GhcPass p))] - -> [LHsTyVarBndr (GhcPass p)] --- Caller sets location -userHsLTyVarBndrs loc bndrs = [ cL loc (UserTyVar noExtField v) | v <- bndrs ] - -userHsTyVarBndrs :: SrcSpan -> [IdP (GhcPass p)] -> [LHsTyVarBndr (GhcPass p)] --- Caller sets location -userHsTyVarBndrs loc bndrs = [ cL loc (UserTyVar noExtField (cL loc v)) - | v <- bndrs ] - {- ************************************************************************ |