Fix GADT refinement fix-pointing, add ASSERTs and a WARN, make type equality function...

[ghc-hetmet.git] / compiler / basicTypes / MkId.lhs

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index de8db07..fe05a9b 100644 (file)
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -575,9 +575,9 @@ mkRecordSelId tycon field_label
        uniq_list = map mkBuiltinUnique [unpack_base..]
 
         Succeeded refinement = gadtRefine emptyRefinement ex_tvs co_tvs
-        (co_fn, out_ty) = refineType refinement (idType the_arg_id)
+        (co_fn, _)      = refineType refinement (idType the_arg_id)
 
-        rhs = ASSERT(out_ty `coreEqType` field_tau) perform_co co_fn (Var the_arg_id)
+        rhs = perform_co co_fn (Var the_arg_id)
 
         perform_co (ExprCoFn co) expr = Cast expr co
         perform_co id_co expr = ASSERT(isIdCoercion id_co) expr