From a3873e8cdec8fc966e91ebe024808376a4077e2b Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Thu, 11 May 2017 22:21:43 +0100 Subject: 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 --- compiler/rename/RnPat.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'compiler/rename/RnPat.hs') 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' -- cgit v1.2.1