X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FCorePrep.lhs;h=5fa5002bfeb42f47ac55f9829e6924549420d1de;hp=4211dca907a0b87f9fff4f604b1c90937a1f61a8;hb=e79c9ce01d0ce4412bd4bcd99c8c728a6a2ec569;hpb=6ccd648bf016aa9cfa13612f0f19be6badea16d1

diff --git a/compiler/coreSyn/CorePrep.lhs b/compiler/coreSyn/CorePrep.lhs
index 4211dca..5fa5002 100644
--- a/compiler/coreSyn/CorePrep.lhs
+++ b/compiler/coreSyn/CorePrep.lhs
@@ -519,6 +519,7 @@ corePrepExprFloat env expr@(App _ _) = do
 	  ty = exprType fun
 
     ignore_note	(CoreNote _) = True 
+    ignore_note	InlineMe     = True
     ignore_note	_other       = False
 	-- We don't ignore SCCs, since they require some code generation