[commit: ghc] wip/float-join-points: Tiny refactor (swap order of args to (&&)) (730f382)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/float-join-points
Link       : http://ghc.haskell.org/trac/ghc/changeset/730f382795217ff5dadb985b6a7e778d59bc6199/ghc

>---------------------------------------------------------------

commit 730f382795217ff5dadb985b6a7e778d59bc6199
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 22 15:03:02 2018 +0000

    Tiny refactor (swap order of args to (&&))


>---------------------------------------------------------------

730f382795217ff5dadb985b6a7e778d59bc6199
 compiler/simplCore/SetLevels.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs
index f0c9063..946a41a 100644
--- a/compiler/simplCore/SetLevels.hs
+++ b/compiler/simplCore/SetLevels.hs
@@ -1166,8 +1166,8 @@ profitableFloat env dest_lvl (bndr:_)
   = True
 
   | otherwise
-  =  not (isJoinId bndr)
-  && not (floatTopLvlOnly env)
+  =  not (floatTopLvlOnly env)
+  && not (isJoinId bndr)
   && (dest_lvl `ltMajLvl` le_ctxt_lvl env)
 
 profitableFloat _ _ [] = panic "profitableFloat"