[project @ 1999-05-18 15:03:54 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplCore / LiberateCase.lhs

diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs
index a1bbe93..bb9a08f 100644 (file)
--- a/ghc/compiler/simplCore/LiberateCase.lhs
+++ b/ghc/compiler/simplCore/LiberateCase.lhs
@@ -11,7 +11,7 @@ module LiberateCase ( liberateCase ) where
 import CmdLineOpts     ( opt_D_verbose_core2core, opt_LiberateCaseThreshold )
 import CoreLint                ( beginPass, endPass )
 import CoreSyn
-import CoreUnfold      ( calcUnfoldingGuidance, UnfoldingGuidance(..) )
+import CoreUnfold      ( calcUnfoldingGuidance, couldBeSmallEnoughToInline )
 import Var             ( Id )
 import VarEnv
 import Maybes
@@ -209,9 +209,7 @@ libCaseBind env (Rec pairs)
        -- [May 98: all this is now handled by SimplCore.tidyCore]
 
     rhs_small_enough rhs
-      = case (calcUnfoldingGuidance lIBERATE_BOMB_SIZE rhs) of
-         UnfoldNever -> False
-         _           -> True   -- we didn't BOMB, so it must be OK
+      = couldBeSmallEnoughToInline (calcUnfoldingGuidance lIBERATE_BOMB_SIZE rhs)
 
     lIBERATE_BOMB_SIZE = bombOutSize env
 \end{code}