diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-04-24 16:59:26 -0400 |
|---|---|---|
| committer | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-04-26 18:52:13 -0400 |
| commit | 76f82c0eb0212a1d6d2712996b4f19984aec80be (patch) | |
| tree | d86f70f6b432ddbeadc6d427d8c366718468be33 /compiler/Language/Haskell/Syntax/Pat.hs | |
| parent | 7bc7eea3897dcb8a87fdb0921f451b9bc77309f6 (diff) | |
| download | haskell-wip/T19720.tar.gz | |
Change representation of field selector occurenceswip/T19720
Diffstat (limited to 'compiler/Language/Haskell/Syntax/Pat.hs')
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Pat.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/Language/Haskell/Syntax/Pat.hs b/compiler/Language/Haskell/Syntax/Pat.hs index 4417026478..a7fb5d8640 100644 --- a/compiler/Language/Haskell/Syntax/Pat.hs +++ b/compiler/Language/Haskell/Syntax/Pat.hs @@ -345,7 +345,7 @@ hsRecFieldsArgs :: forall p arg. UnXRec p => HsRecFields p arg -> [arg] hsRecFieldsArgs rbinds = map (hsRecFieldArg . unXRec @p) (rec_flds rbinds) hsRecFieldSel :: HsRecField pass arg -> Located (XCFieldOcc pass) -hsRecFieldSel = fmap extFieldOcc . hsRecFieldLbl +hsRecFieldSel = fmap foExt . hsRecFieldLbl {- |