From 7b962bab384e2ae85b41d30f503c3d0295b0214f Mon Sep 17 00:00:00 2001 From: Adam Gundry Date: Tue, 17 Nov 2015 15:50:33 +0100 Subject: Implement OverloadedLabels See https://ghc.haskell.org/trac/ghc/wiki/Records/OverloadedRecordFields/OverloadedLabels for the big picture. Reviewers: goldfire, simonpj, austin, hvr, bgamari Reviewed By: simonpj, bgamari Subscribers: kosmikus, thomie, mpickering Differential Revision: https://phabricator.haskell.org/D1331 --- compiler/deSugar/Match.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'compiler/deSugar/Match.hs') diff --git a/compiler/deSugar/Match.hs b/compiler/deSugar/Match.hs index e23f223d76..40b50331e8 100644 --- a/compiler/deSugar/Match.hs +++ b/compiler/deSugar/Match.hs @@ -986,6 +986,7 @@ viewLExprEq (e1,_) (e2,_) = lexp e1 e2 -- the instance for IPName derives using the id, so this works if the -- above does exp (HsIPVar i) (HsIPVar i') = i == i' + exp (HsOverLabel l) (HsOverLabel l') = l == l' exp (HsOverLit l) (HsOverLit l') = -- Overloaded lits are equal if they have the same type -- and the data is the same. -- cgit v1.2.1