From 5562ede1f4fe080aef4b93dd2767889285c388a0 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 10 Jul 2002 13:07:42 +0000
Subject: [PATCH] [project @ 2002-07-10 13:07:42 by simonpj] Fix trivial bug
 in WorkWrap that killed all INLINE pragmas!  Merge to
 STABLE

---
 ghc/compiler/stranal/WorkWrap.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 2cdda70..d587894 100644
--- 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)
-- 
1.7.10.4