X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FBinderInfo.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FBinderInfo.lhs;h=8a4b92224460d1a1102caaa775703408d5e57ce9;hb=996573cd62a9dab5b3a7f7ab85567507422601bb;hp=6737103e7a984a788ecff3351f26bfef9065ea9b;hpb=e1fc52f6868619bbeafaced910c50a304db5e0f9;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 6737103..8a4b922 100644
--- 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