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/Utils.hs | |
| parent | df4a0a53691cd833f54eb443401243dd9c964196 (diff) | |
| download | haskell-d48b7e5c2fae5db1973a767be45aba82b2aa727c.tar.gz | |
Changes to HsRecField'
Diffstat (limited to 'compiler/GHC/Tc/TyCl/Utils.hs')
| -rw-r--r-- | compiler/GHC/Tc/TyCl/Utils.hs | 10 |
1 files changed, 5 insertions, 5 deletions
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 |