diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-05-02 16:56:55 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-27 02:35:47 -0400 |
| commit | 9935e99c893b9d5eb0a879116144cf62cc986e7d (patch) | |
| tree | 12b0b1553278c04ac2ad31102205199ef2bb0413 /compiler/GHC/Hs/Expr.hs | |
| parent | 03d69e4bb6b92ccd8238bebd9cff68da23741f49 (diff) | |
| download | haskell-9935e99c893b9d5eb0a879116144cf62cc986e7d.tar.gz | |
Change representation of HsGetField and HsProjection
Another change in a series improving record syntax in the AST. The key
change in this commit is the renaming of `HsFieldLabel` to `DotFieldOcc`.
Diffstat (limited to 'compiler/GHC/Hs/Expr.hs')
| -rw-r--r-- | compiler/GHC/Hs/Expr.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/GHC/Hs/Expr.hs b/compiler/GHC/Hs/Expr.hs index 89292b59c3..006c8a2e8e 100644 --- a/compiler/GHC/Hs/Expr.hs +++ b/compiler/GHC/Hs/Expr.hs @@ -44,6 +44,7 @@ import GHC.Parser.Annotation -- others: import GHC.Tc.Types.Evidence +import GHC.Core.DataCon (FieldLabelString) import GHC.Types.Name import GHC.Types.Name.Set import GHC.Types.Basic @@ -406,8 +407,8 @@ data AnnsIf type instance XSCC (GhcPass _) = EpAnn AnnPragma type instance XXPragE (GhcPass _) = NoExtCon -type instance XCHsFieldLabel (GhcPass _) = EpAnn AnnFieldLabel -type instance XXHsFieldLabel (GhcPass _) = NoExtCon +type instance XCDotFieldOcc (GhcPass _) = EpAnn AnnFieldLabel +type instance XXDotFieldOcc (GhcPass _) = NoExtCon type instance XPresent (GhcPass _) = EpAnn [AddEpAnn] @@ -1902,6 +1903,8 @@ type instance Anno [LocatedA (StmtLR (GhcPass pl) (GhcPass pr) (LocatedA (HsExpr type instance Anno [LocatedA (StmtLR (GhcPass pl) (GhcPass pr) (LocatedA (HsCmd (GhcPass pr))))] = SrcSpanAnnL type instance Anno (FieldLabelStrings (GhcPass p)) = SrcSpan +type instance Anno (FieldLabelString) = SrcSpan +type instance Anno (DotFieldOcc (GhcPass p)) = SrcSpan instance (Anno a ~ SrcSpanAnn' (EpAnn an)) => WrapXRec (GhcPass p) a where |