X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;fp=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;h=d587894ac3c64acb4a8c91d8ef1fd739e73e691f;hb=5562ede1f4fe080aef4b93dd2767889285c388a0;hp=2cdda7007c133f266dc3601f09fc20ac498cc97d;hpb=309b08d29be94fe9fe27feea082ebe007557d425;p=ghc-hetmet.git

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)