X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCorePrep.lhs;h=105d248604b3298b4aae36c546f68302638d02d5;hb=56dfaffd65d96d27a74c906c2201fd392e06f154;hp=e5165f0ebe98ed34e3aa052a04f5b7d167d58c65;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

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