diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:47 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:47 +0000 |
| commit | 5eb542caabfca8c719be507998aee8cebdf8d505 (patch) | |
| tree | fbb9ae68fb99533858e4d04f2e1204219f69e073 | |
| parent | 27241cd4c3ae6d07b91d955acef295e3da1ecc11 (diff) | |
| download | haskell-5eb542caabfca8c719be507998aee8cebdf8d505.tar.gz | |
Follow OccName changes in ParserCore
| -rw-r--r-- | compiler/parser/ParserCore.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y index 86652ffeb2..6d302fb03a 100644 --- a/compiler/parser/ParserCore.y +++ b/compiler/parser/ParserCore.y @@ -352,7 +352,7 @@ eqTc (IfaceTc name) tycon = name == tyConName tycon -- are very limited (see the productions for 'ty', so the translation -- isn't hard toHsType :: IfaceType -> LHsType RdrName -toHsType (IfaceTyVar v) = noLoc $ HsTyVar (mkRdrUnqual (mkTyVarOcc v)) +toHsType (IfaceTyVar v) = noLoc $ HsTyVar (mkRdrUnqual (mkTyVarOccFS v)) toHsType (IfaceAppTy t1 t2) = noLoc $ HsAppTy (toHsType t1) (toHsType t2) toHsType (IfaceFunTy t1 t2) = noLoc $ HsFunTy (toHsType t1) (toHsType t2) toHsType (IfaceTyConApp (IfaceTc tc) ts) = foldl mkHsAppTy (noLoc $ HsTyVar (ifaceExtRdrName tc)) (map toHsType ts) @@ -384,7 +384,7 @@ ifaceArrow ifT1 ifT2 = IfaceFunTy ifT1 ifT2 ifaceEq ifT1 ifT2 = IfacePredTy (IfaceEqPred ifT1 ifT2) toHsTvBndr :: IfaceTvBndr -> LHsTyVarBndr RdrName -toHsTvBndr (tv,k) = noLoc $ KindedTyVar (mkRdrUnqual (mkTyVarOcc tv)) (toKind k) +toHsTvBndr (tv,k) = noLoc $ KindedTyVar (mkRdrUnqual (mkTyVarOccFS tv)) (toKind k) ifaceExtRdrName :: Name -> RdrName ifaceExtRdrName name = mkOrig (nameModule name) (nameOccName name) |