diff options
author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2015-10-17 19:33:38 +1100 |
---|---|---|
committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2015-10-20 06:48:55 +1100 |
commit | 96dc041a502754da475e38cb84ed2bb0e142d527 (patch) | |
tree | fc275d9fa1d3c0197eafc4fa2f8abf1ccd339134 /compiler/typecheck/TcExpr.hs | |
parent | 2b25a589ae8f6364bf086b4878f5ec26954931d3 (diff) | |
download | haskell-96dc041a502754da475e38cb84ed2bb0e142d527.tar.gz |
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
Diffstat (limited to 'compiler/typecheck/TcExpr.hs')
-rw-r--r-- | compiler/typecheck/TcExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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. |