[project @ 1998-03-19 23:54:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsUtils.lhs

diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index d82217d..2685e65 100644 (file)
--- a/ghc/compiler/deSugar/DsUtils.lhs
+++ b/ghc/compiler/deSugar/DsUtils.lhs
@@ -201,9 +201,7 @@ mkCoAlgCaseMatchResult var alts
        -- Stuff for newtype
     (con_id, arg_ids, match_result) = head alts
     arg_id                         = head arg_ids
-    coercion_bind                  = NonRec arg_id (Coerce (CoerceOut con_id) 
-                                                           (idType arg_id)
-                                                           (Var var))
+    coercion_bind                  = NonRec arg_id (Note (Coerce (idType arg_id) scrut_ty) (Var var))
     newtype_sanity                 = null (tail alts) && null (tail arg_ids)
 
        -- Stuff for data types