From 96dc041a502754da475e38cb84ed2bb0e142d527 Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Sat, 17 Oct 2015 19:33:38 +1100 Subject: Systools.hs: Improve detection of GCC and Clang Test Plan: Build on Debian using `--with-gcc=clang` Reviewers: austin, bgamari Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D1336 GHC Trac Issues: #10981 --- compiler/typecheck/TcExpr.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/typecheck/TcExpr.hs') diff --git a/compiler/typecheck/TcExpr.hs b/compiler/typecheck/TcExpr.hs index 1bdb1934b9..e6cc5d1bf6 100644 --- a/compiler/typecheck/TcExpr.hs +++ b/compiler/typecheck/TcExpr.hs @@ -1451,7 +1451,7 @@ disambiguateRecordBinds record_expr rbnds res_ty lookupParent :: GlobalRdrElt -> RnM (TyCon, GlobalRdrElt) lookupParent gre = do { id <- tcLookupId (gre_name gre) - ; ASSERT (isRecordSelector id) + ; ASSERT(isRecordSelector id) return (recordSelectorTyCon id, gre) } -- Make all the fields unambiguous by choosing the given parent. -- cgit v1.2.1