X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=a456fde4e1c146e7d79067dcd2605b2f958eec80;hb=f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1;hp=99fa850513912ec747071f88a218bf84ac9fa1f2;hpb=cc051dd76d01b61caae6f4e1fc177c9815716961;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index 99fa850..a456fde 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -76,6 +76,9 @@ wwExpr   (CoTyApp f ty) =
 wwExpr   (SCC lab e) =
 	wwExpr e                `thenWw` \ e' ->
 	returnWw (SCC lab e')
+wwExpr   (Coerce c ty e) =
+	wwExpr e                `thenWw` \ e' ->
+	returnWw (Coerce c ty e')
 wwExpr   (Let bnds e) =
 	wwExpr e                `thenWw` \ e' ->
 	wwBind bnds             `thenWw` \ bnds' ->