diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-03-25 21:46:56 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-31 11:13:28 -0400 |
| commit | 49bc1e9ec854e571dfa78ac43565073586579f31 (patch) | |
| tree | 4cf1ea1b7f53581ae57a493ba757cf1130585a03 /compiler/GHC/Hs/ImpExp.hs | |
| parent | d03005e642710d0f1f78757292e0fe65287e5f0a (diff) | |
| download | haskell-49bc1e9ec854e571dfa78ac43565073586579f31.tar.gz | |
EPA : rename AnnAnchor to EpaAnchor
Follow-up from !2418, see #19579
Diffstat (limited to 'compiler/GHC/Hs/ImpExp.hs')
| -rw-r--r-- | compiler/GHC/Hs/ImpExp.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/compiler/GHC/Hs/ImpExp.hs b/compiler/GHC/Hs/ImpExp.hs index 2622f243ae..103359281b 100644 --- a/compiler/GHC/Hs/ImpExp.hs +++ b/compiler/GHC/Hs/ImpExp.hs @@ -64,9 +64,9 @@ data ImportDeclQualifiedStyle -- | Given two possible located 'qualified' tokens, compute a style -- (in a conforming Haskell program only one of the two can be not -- 'Nothing'). This is called from "GHC.Parser". -importDeclQualifiedStyle :: Maybe AnnAnchor - -> Maybe AnnAnchor - -> (Maybe AnnAnchor, ImportDeclQualifiedStyle) +importDeclQualifiedStyle :: Maybe EpaAnchor + -> Maybe EpaAnchor + -> (Maybe EpaAnchor, ImportDeclQualifiedStyle) importDeclQualifiedStyle mPre mPost = if isJust mPre then (mPre, QualifiedPre) else if isJust mPost then (mPost,QualifiedPost) else (Nothing, NotQualified) @@ -127,12 +127,12 @@ type instance Anno [LocatedA (IE (GhcPass p))] = SrcSpanAnnL -- API Annotations types data EpAnnImportDecl = EpAnnImportDecl - { importDeclAnnImport :: AnnAnchor - , importDeclAnnPragma :: Maybe (AnnAnchor, AnnAnchor) - , importDeclAnnSafe :: Maybe AnnAnchor - , importDeclAnnQualified :: Maybe AnnAnchor - , importDeclAnnPackage :: Maybe AnnAnchor - , importDeclAnnAs :: Maybe AnnAnchor + { importDeclAnnImport :: EpaAnchor + , importDeclAnnPragma :: Maybe (EpaAnchor, EpaAnchor) + , importDeclAnnSafe :: Maybe EpaAnchor + , importDeclAnnQualified :: Maybe EpaAnchor + , importDeclAnnPackage :: Maybe EpaAnchor + , importDeclAnnAs :: Maybe EpaAnchor } deriving (Data) -- --------------------------------------------------------------------- @@ -209,8 +209,8 @@ instance (OutputableBndrId p -- the original source. data IEWrappedName name = IEName (LocatedN name) -- ^ no extra - | IEPattern AnnAnchor (LocatedN name) -- ^ pattern X - | IEType AnnAnchor (LocatedN name) -- ^ type (:+:) + | IEPattern EpaAnchor (LocatedN name) -- ^ pattern X + | IEType EpaAnchor (LocatedN name) -- ^ type (:+:) deriving (Eq,Data) -- | Located name with possible adornment |