diff options
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 |