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

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

diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 6737103..8a4b922 100644 (file)
--- a/ghc/compiler/simplCore/BinderInfo.lhs
+++ b/ghc/compiler/simplCore/BinderInfo.lhs
@@ -145,7 +145,7 @@ okToInline False small_enough (OneOcc _ NoDupDanger _ n_alts _)
 -- If the thing isn't a redex, there's no danger of duplicating work, 
 -- so we can inline if it occurs once, or is small
 okToInline True small_enough occ_info 
- = small_enough || one_occ
+ = one_occ || small_enough
  where
    one_occ = case occ_info of
                OneOcc _ _ _ n_alts _ -> n_alts <= 1