X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FMkId.lhs;h=20cdf6c398b20f05725b70d1f1af119ff5fecb7f;hb=9d787ef5a8072b6c1f576f2de1b66edfa59813ed;hp=2fffbfcbddf48b36822bf000a103fcf0576cb835;hpb=5c60f4ca21334fa8b6324423b70ae044e5ad5bf9;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 2fffbfc..20cdf6c 100644
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -353,7 +353,7 @@ mkNewTySelId field_label selector_ty = sel_id
 	
     [data_id] = mkTemplateLocals [data_ty]
     sel_rhs   = mkLams tyvars $ Lam data_id $
-		Note (Coerce rhs_ty data_ty) (Var data_id)
+		Note (Coerce (unUsgTy rhs_ty) (unUsgTy data_ty)) (Var data_id)
 \end{code}