diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-05-15 21:15:41 +1000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-19 23:40:12 -0400 |
| commit | d48b7e5c2fae5db1973a767be45aba82b2aa727c (patch) | |
| tree | b0af0b799854da5e4b9efbe29a24e02d4db71641 /compiler/GHC/Hs/Expr.hs | |
| parent | df4a0a53691cd833f54eb443401243dd9c964196 (diff) | |
| download | haskell-d48b7e5c2fae5db1973a767be45aba82b2aa727c.tar.gz | |
Changes to HsRecField'
Diffstat (limited to 'compiler/GHC/Hs/Expr.hs')
| -rw-r--r-- | compiler/GHC/Hs/Expr.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/GHC/Hs/Expr.hs b/compiler/GHC/Hs/Expr.hs index 776e1cb8b5..9b409f4232 100644 --- a/compiler/GHC/Hs/Expr.hs +++ b/compiler/GHC/Hs/Expr.hs @@ -1892,6 +1892,8 @@ type instance Anno (HsSplice (GhcPass p)) = SrcSpanAnnA type instance Anno [LocatedA (StmtLR (GhcPass pl) (GhcPass pr) (LocatedA (HsExpr (GhcPass pr))))] = SrcSpanAnnL type instance Anno [LocatedA (StmtLR (GhcPass pl) (GhcPass pr) (LocatedA (HsCmd (GhcPass pr))))] = SrcSpanAnnL +type instance Anno (FieldLabelStrings (GhcPass p)) = SrcSpan + instance (Anno a ~ SrcSpanAnn' (EpAnn an)) => WrapXRec (GhcPass p) a where wrapXRec = noLocA |