[project @ 2002-07-10 13:07:42 by simonpj]

Fix trivial bug in WorkWrap that killed all INLINE pragmas!  Merge to STABLE

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 2cdda70..d587894 100644 (file)
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -131,7 +131,7 @@ wwExpr :: CoreExpr -> UniqSM CoreExpr
 
 wwExpr e@(Type _)            = returnUs e
 wwExpr e@(Lit _)             = returnUs e
-wwExpr e@(Note InlineMe expr) = returnUs expr
+wwExpr e@(Note InlineMe expr) = returnUs e
        -- Don't w/w inside InlineMe's
 
 wwExpr e@(Var v)