diff options
author | simonpj <unknown> | 2004-04-05 10:52:25 +0000 |
---|---|---|
committer | simonpj <unknown> | 2004-04-05 10:52:25 +0000 |
commit | 25ef3ade4257614cd966e29d0ed595c9db5587a7 (patch) | |
tree | 038494afb1be35374e732ba8577b43fed57410af /ghc/compiler/rename | |
parent | c7c01b0d35e816c4e85177d22d82be22261684a1 (diff) | |
download | haskell-25ef3ade4257614cd966e29d0ed595c9db5587a7.tar.gz |
[project @ 2004-04-05 10:52:23 by simonpj]
Remove the entirely-redundant location from the argument of
constructor HsPredTy,
so that we have
HsPredTy HsType
rather than
HsPredTy LHsType
Diffstat (limited to 'ghc/compiler/rename')
-rw-r--r-- | ghc/compiler/rename/RnHsSyn.lhs | 2 | ||||
-rw-r--r-- | ghc/compiler/rename/RnTypes.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/rename/RnHsSyn.lhs b/ghc/compiler/rename/RnHsSyn.lhs index 5d316727ca..bc2fa4dc5a 100644 --- a/ghc/compiler/rename/RnHsSyn.lhs +++ b/ghc/compiler/rename/RnHsSyn.lhs @@ -51,7 +51,7 @@ extractHsTyNames ty get (HsPArrTy ty) = unitNameSet parrTyCon_name `unionNameSets` getl ty get (HsTupleTy con tys) = extractHsTyNames_s tys get (HsFunTy ty1 ty2) = getl ty1 `unionNameSets` getl ty2 - get (HsPredTy p) = extractHsPredTyNames (unLoc p) + get (HsPredTy p) = extractHsPredTyNames p get (HsOpTy ty1 op ty2) = getl ty1 `unionNameSets` getl ty2 `unionNameSets` unitNameSet (unLoc op) get (HsParTy ty) = getl ty get (HsNumTy n) = emptyNameSet diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs index 82c1a5de4c..a7932847db 100644 --- a/ghc/compiler/rename/RnTypes.lhs +++ b/ghc/compiler/rename/RnTypes.lhs @@ -161,7 +161,7 @@ rnHsType doc (HsAppTy ty1 ty2) returnM (HsAppTy ty1' ty2') rnHsType doc (HsPredTy pred) - = rnLPred doc pred `thenM` \ pred' -> + = rnPred doc pred `thenM` \ pred' -> returnM (HsPredTy pred') rnLHsTypes doc tys = mappM (rnLHsType doc) tys |