diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-26 09:00:58 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-26 09:00:58 +0100 |
| commit | a44c3d90249e381b57a5220f80ad4bee316ff48b (patch) | |
| tree | 2cb16a9218d627762d989e9ed67ba154fc79439b /compiler/hsSyn | |
| parent | e5beffb7c34aa2cb0df2f3b04fd18f664eccdcc7 (diff) | |
| download | haskell-a44c3d90249e381b57a5220f80ad4bee316ff48b.tar.gz | |
Make the 'extract' functions to find free type variables
of an HsType return RdrNames rather than (Located RdrNames).
This means less clutter, and the individual locations are
a bit arbitrary if a name occurs more than once.
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs index 2049ebb7e3..ab1449fe77 100644 --- a/compiler/hsSyn/HsUtils.lhs +++ b/compiler/hsSyn/HsUtils.lhs @@ -269,9 +269,9 @@ mkHsBSig :: a -> HsBndrSig a mkHsBSig x = HsBSig x placeHolderBndrs ------------- -userHsTyVarBndrs :: SrcSpan -> [Located name] -> [Located (HsTyVarBndr name)] +userHsTyVarBndrs :: SrcSpan -> [name] -> [Located (HsTyVarBndr name)] -- Caller sets location -userHsTyVarBndrs loc bndrs = [ L loc (UserTyVar v) | L _ v <- bndrs ] +userHsTyVarBndrs loc bndrs = [ L loc (UserTyVar v) | v <- bndrs ] \end{code} |