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/Tc/TyCl | |
| parent | df4a0a53691cd833f54eb443401243dd9c964196 (diff) | |
| download | haskell-d48b7e5c2fae5db1973a767be45aba82b2aa727c.tar.gz | |
Changes to HsRecField'
Diffstat (limited to 'compiler/GHC/Tc/TyCl')
| -rw-r--r-- | compiler/GHC/Tc/TyCl/PatSyn.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Tc/TyCl/Utils.hs | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/compiler/GHC/Tc/TyCl/PatSyn.hs b/compiler/GHC/Tc/TyCl/PatSyn.hs index 400a4d770a..d659b4e8d9 100644 --- a/compiler/GHC/Tc/TyCl/PatSyn.hs +++ b/compiler/GHC/Tc/TyCl/PatSyn.hs @@ -1223,7 +1223,7 @@ tcCollectEx pat = go pat = mergeMany . map goRecFd $ flds goRecFd :: LHsRecField GhcTc (LPat GhcTc) -> ([TyVar], [EvVar]) - goRecFd (L _ HsRecField{ hsRecFieldArg = p }) = go p + goRecFd (L _ HsFieldBind{ hfbRHS = p }) = go p merge (vs1, evs1) (vs2, evs2) = (vs1 ++ vs2, evs1 ++ evs2) mergeMany = foldr merge empty diff --git a/compiler/GHC/Tc/TyCl/Utils.hs b/compiler/GHC/Tc/TyCl/Utils.hs index 79ed91ba30..9e13a632ae 100644 --- a/compiler/GHC/Tc/TyCl/Utils.hs +++ b/compiler/GHC/Tc/TyCl/Utils.hs @@ -920,14 +920,14 @@ mkOneRecordSelector all_cons idDetails fl has_sel (L loc' (HsVar noExtField (L locn field_var))) mk_sel_pat con = ConPat NoExtField (L locn (getName con)) (RecCon rec_fields) rec_fields = HsRecFields { rec_flds = [rec_field], rec_dotdot = Nothing } - rec_field = noLocA (HsRecField - { hsRecFieldAnn = noAnn - , hsRecFieldLbl + rec_field = noLocA (HsFieldBind + { hfbAnn = noAnn + , hfbLHS = L loc (FieldOcc sel_name (L locn $ mkVarUnqual lbl)) - , hsRecFieldArg + , hfbRHS = L loc' (VarPat noExtField (L locn field_var)) - , hsRecPun = False }) + , hfbPun = False }) sel_lname = L locn sel_name field_var = mkInternalName (mkBuiltinUnique 1) (getOccName sel_name) loc |