Rollback INLINE patches

[ghc-hetmet.git] / compiler / coreSyn / CorePrep.lhs

diff --git a/compiler/coreSyn/CorePrep.lhs b/compiler/coreSyn/CorePrep.lhs
index 4211dca..5fa5002 100644 (file)
--- 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 
          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
 
     ignore_note        _other       = False
        -- We don't ignore SCCs, since they require some code generation