diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-08-28 19:26:53 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-08-29 11:30:25 +0300 |
| commit | 09e7c9dc0d63a19af07612742765d532c78bf00a (patch) | |
| tree | 28468f282851f585e2df2f30ffdf962ada775679 | |
| parent | fc746e98d8ee7ac22224ba7d7fd1c38e16dfad30 (diff) | |
| download | haskell-wip/unused-userHsLTyVarBndrs.tar.gz | |
Remove HsUtils/userHsLTyVarBndrswip/unused-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 ] - {- ************************************************************************ |