[project @ 1998-03-09 17:26:31 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stranal / WorkWrap.lhs

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index fbac09b..ebea69b 100644 (file)
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -184,7 +184,7 @@ tryWW       :: Id                           -- The fn binder
                                        -- if two, then a worker and a
                                        -- wrapper.
 tryWW fn_id rhs
-  | (certainlySmallEnoughToInline $
+  | (certainlySmallEnoughToInline fn_id $
      calcUnfoldingGuidance (getInlinePragma fn_id) 
                          opt_UnfoldingCreationThreshold
                          rhs