X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=50d7f059fd0cc425cfb6d6d7dcb40287de4e37fe;hb=2c8f04b5b883db74f449dfc8c224929fe28b027d;hp=73c440670c6668d97ca1054efe97cf58a3c48022;hpb=350263b7fc9352f7eecb1769fe1840b0e20c7e04;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index 73c4406..50d7f05 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -72,12 +72,9 @@ wwExpr   (App f atom) =
 wwExpr   (CoTyApp f ty) =
 	wwExpr f                `thenWw` \ f' ->
 	returnWw (CoTyApp f' ty)
-wwExpr   (SCC lab e) =
+wwExpr   (Note note e) =
 	wwExpr e                `thenWw` \ e' ->
-	returnWw (SCC lab e')
-wwExpr   (Coerce c ty e) =
-	wwExpr e                `thenWw` \ e' ->
-	returnWw (Coerce c ty e')
+	returnWw (Note note e')
 wwExpr   (Let bnds e) =
 	wwExpr e                `thenWw` \ e' ->
 	wwBind bnds             `thenWw` \ bnds' ->