diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-05-11 22:21:43 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-05-11 23:38:48 +0100 |
| commit | a3873e8cdec8fc966e91ebe024808376a4077e2b (patch) | |
| tree | 7101f05231203d47ddf284a1a894b55a1d5712e0 /compiler/rename/RnPat.hs | |
| parent | 37603032b1b159f325f7430f732abe00c79f1e24 (diff) | |
| download | haskell-a3873e8cdec8fc966e91ebe024808376a4077e2b.tar.gz | |
RnEnv refactoring
Summary: Lots of refactoring in RnEnv to reduce code duplication.
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: rwbarton, thomie
GHC Trac Issues: #13545
Differential Revision: https://phabricator.haskell.org/D3507
Diffstat (limited to 'compiler/rename/RnPat.hs')
| -rw-r--r-- | compiler/rename/RnPat.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/rename/RnPat.hs b/compiler/rename/RnPat.hs index ac3cf64cb7..7c4663c080 100644 --- a/compiler/rename/RnPat.hs +++ b/compiler/rename/RnPat.hs @@ -754,13 +754,13 @@ rnHsRecUpdFields flds ; let fvs' = case sel of Left sel_name -> fvs `addOneFV` sel_name - Right [FieldOcc _ sel_name] -> fvs `addOneFV` sel_name + Right [sel_name] -> fvs `addOneFV` sel_name Right _ -> fvs lbl' = case sel of Left sel_name -> L loc (Unambiguous (L loc lbl) sel_name) - Right [FieldOcc lbl sel_name] -> - L loc (Unambiguous lbl sel_name) + Right [sel_name] -> + L loc (Unambiguous (L loc lbl) sel_name) Right _ -> L loc (Ambiguous (L loc lbl) PlaceHolder) ; return (L l (HsRecField { hsRecFieldLbl = lbl' |