[project @ 2000-06-27 09:08:32 by lewie]

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

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 1573635..87f560b 100644 (file)
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -190,7 +190,7 @@ tryWW       :: Bool                         -- True <=> a non-recursive binding
                                        -- if two, then a worker and a
                                        -- wrapper.
 tryWW non_rec fn_id rhs
-  | not (isNeverInlinePrag inline_prag) 
+  | isNeverInlinePrag inline_prag
   =    -- Don't split things that will never be inlined
     returnUs [ (fn_id, rhs) ]