X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplify.lhs;h=62f226c8ad8a268557fc8d6c3ff7475aa3789acf;hb=b88025eabcd83f65d1d81f09272f5172f06a60e7;hp=28193eb115c515a15b84aeefd3c79878def14083;hpb=e68a891932d615590d9b1ab5752ada8142db5053;p=ghc-hetmet.git

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 28193eb..62f226c 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -875,16 +875,8 @@ simplNote env InlineMe e cont
   = simplExprF env e cont
 
 simplNote env (CoreNote s) e cont
-  = do	{ e' <- simplExpr env e
-	; rebuild env (Note (CoreNote s) e') cont }
-
-simplNote env note@(TickBox {}) e cont
-  = do	{ e' <- simplExpr env e
-	; rebuild env (Note note e') cont }
-
-simplNote env note@(BinaryTickBox {}) e cont
-  = do	{ e' <- simplExpr env e
-	; rebuild env (Note note e') cont }
+  = simplExpr env e    `thenSmpl` \ e' ->
+    rebuild env (Note (CoreNote s) e') cont
 \end{code}