diff options
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. |