From 7f1218d81179823f9b4857ca38cd7b5e29e542c6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 23:04:06 +0000
Subject: [PATCH] [project @ 1997-05-18 23:04:06 by sof] 2.0x bootable

---
 ghc/compiler/stranal/WorkWrap.lhs |   11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 1b133b1..e1621b3 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -15,9 +15,9 @@ import CoreUnfold	( Unfolding, certainlySmallEnoughToInline, calcUnfoldingGuidan
 import CmdLineOpts	( opt_UnfoldingCreationThreshold )
 
 import CoreUtils	( coreExprType )
-import Id		( idWantsToBeINLINEd, getIdStrictness, mkWorkerId,
-			  addIdStrictness, addInlinePragma,
-			  GenId
+import Id		( getInlinePragma, getIdStrictness, mkWorkerId,
+			  addIdStrictness, addInlinePragma, 
+			  GenId, SYN_IE(Id)
 			)
 import IdInfo		( noIdInfo, addUnfoldInfo,  
 			  mkStrictnessInfo, addStrictnessInfo, StrictnessInfo(..)
@@ -185,9 +185,10 @@ tryWW	:: Id				-- The fn binder
 					-- wrapper.
 tryWW fn_id rhs
   | (certainlySmallEnoughToInline $
-     calcUnfoldingGuidance (idWantsToBeINLINEd fn_id) 
+     calcUnfoldingGuidance (getInlinePragma fn_id) 
 			  opt_UnfoldingCreationThreshold
-			  rhs)
+			  rhs
+    )
 	    -- No point in worker/wrappering something that is going to be
 	    -- INLINEd wholesale anyway.  If the strictness analyser is run
 	    -- twice, this test also prevents wrappers (which are INLINEd)
-- 
1.7.10.4