diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-03-25 21:24:27 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-31 11:13:28 -0400 |
commit | 0fe5175ac537c0ce2afe969ec82a0d1c73a4ae38 (patch) | |
tree | da9e816a7d18be58e795b3c9dd07b87106ab82fc /compiler/GHC/Hs/Binds.hs | |
parent | 2fcebb72d97edd1e630002bef89bc6982529e36f (diff) | |
download | haskell-0fe5175ac537c0ce2afe969ec82a0d1c73a4ae38.tar.gz |
EPA : Rename ApiAnn to EPAnn
Follow-up from !2418, see #19579
Updates haddock submodule
Diffstat (limited to 'compiler/GHC/Hs/Binds.hs')
-rw-r--r-- | compiler/GHC/Hs/Binds.hs | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/compiler/GHC/Hs/Binds.hs b/compiler/GHC/Hs/Binds.hs index e40d1acc93..c89406a63e 100644 --- a/compiler/GHC/Hs/Binds.hs +++ b/compiler/GHC/Hs/Binds.hs @@ -69,8 +69,8 @@ Global bindings (where clauses) -- the ...LR datatypes are parametrized by two id types, -- one for the left and one for the right. -type instance XHsValBinds (GhcPass pL) (GhcPass pR) = ApiAnn' AnnList -type instance XHsIPBinds (GhcPass pL) (GhcPass pR) = ApiAnn' AnnList +type instance XHsValBinds (GhcPass pL) (GhcPass pR) = EpAnn' AnnList +type instance XHsIPBinds (GhcPass pL) (GhcPass pR) = EpAnn' AnnList type instance XEmptyLocalBinds (GhcPass pL) (GhcPass pR) = NoExtField type instance XXHsLocalBindsLR (GhcPass pL) (GhcPass pR) = NoExtCon @@ -93,7 +93,7 @@ type instance XFunBind (GhcPass pL) GhcPs = NoExtField type instance XFunBind (GhcPass pL) GhcRn = NameSet -- Free variables type instance XFunBind (GhcPass pL) GhcTc = HsWrapper -- See comments on FunBind.fun_ext -type instance XPatBind GhcPs (GhcPass pR) = ApiAnn +type instance XPatBind GhcPs (GhcPass pR) = EpAnn type instance XPatBind GhcRn (GhcPass pR) = NameSet -- Free variables type instance XPatBind GhcTc (GhcPass pR) = Type -- Type of the GRHSs @@ -105,7 +105,7 @@ type instance XXHsBindsLR (GhcPass pL) (GhcPass pR) = NoExtCon type instance XABE (GhcPass p) = NoExtField type instance XXABExport (GhcPass p) = NoExtCon -type instance XPSB (GhcPass idL) GhcPs = ApiAnn +type instance XPSB (GhcPass idL) GhcPs = EpAnn type instance XPSB (GhcPass idL) GhcRn = NameSet type instance XPSB (GhcPass idL) GhcTc = NameSet @@ -552,7 +552,7 @@ isEmptyIPBindsPR (IPBinds _ is) = null is isEmptyIPBindsTc :: HsIPBinds GhcTc -> Bool isEmptyIPBindsTc (IPBinds ds is) = null is && isEmptyTcEvBinds ds -type instance XCIPBind (GhcPass p) = ApiAnn +type instance XCIPBind (GhcPass p) = EpAnn type instance XXIPBind (GhcPass p) = NoExtCon instance OutputableBndrId p @@ -574,17 +574,17 @@ instance OutputableBndrId p => Outputable (IPBind (GhcPass p)) where ************************************************************************ -} -type instance XTypeSig (GhcPass p) = ApiAnn' AnnSig -type instance XPatSynSig (GhcPass p) = ApiAnn' AnnSig -type instance XClassOpSig (GhcPass p) = ApiAnn' AnnSig +type instance XTypeSig (GhcPass p) = EpAnn' AnnSig +type instance XPatSynSig (GhcPass p) = EpAnn' AnnSig +type instance XClassOpSig (GhcPass p) = EpAnn' AnnSig type instance XIdSig (GhcPass p) = NoExtField -- No anns, generated -type instance XFixSig (GhcPass p) = ApiAnn -type instance XInlineSig (GhcPass p) = ApiAnn -type instance XSpecSig (GhcPass p) = ApiAnn -type instance XSpecInstSig (GhcPass p) = ApiAnn -type instance XMinimalSig (GhcPass p) = ApiAnn -type instance XSCCFunSig (GhcPass p) = ApiAnn -type instance XCompleteMatchSig (GhcPass p) = ApiAnn +type instance XFixSig (GhcPass p) = EpAnn +type instance XInlineSig (GhcPass p) = EpAnn +type instance XSpecSig (GhcPass p) = EpAnn +type instance XSpecInstSig (GhcPass p) = EpAnn +type instance XMinimalSig (GhcPass p) = EpAnn +type instance XSCCFunSig (GhcPass p) = EpAnn +type instance XCompleteMatchSig (GhcPass p) = EpAnn type instance XXSig (GhcPass p) = NoExtCon |