[commit: ghc] master: Replace freeVarsOf scrut with scrut_fvs to avoid repetition (932d503)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/932d50364912087e2051505290acde7a16532b4d/ghc

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

commit 932d50364912087e2051505290acde7a16532b4d
Author: Bartosz Nitka <bnitka at fb.com>
Date:   Sun Nov 8 00:20:34 2015 +0100

    Replace freeVarsOf scrut with scrut_fvs to avoid repetition
    
    Test Plan: harbormaster
    
    Reviewers: bgamari, simonmar, austin
    
    Reviewed By: austin
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D1439


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

932d50364912087e2051505290acde7a16532b4d
 compiler/simplCore/FloatIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/FloatIn.hs b/compiler/simplCore/FloatIn.hs
index 412125a..8b2a84d 100644
--- a/compiler/simplCore/FloatIn.hs
+++ b/compiler/simplCore/FloatIn.hs
@@ -391,7 +391,7 @@ fiExpr dflags to_drop (_, AnnCase scrut case_bndr _ [(con,alt_bndrs,rhs)])
                     (FloatCase scrut' case_bndr con alt_bndrs)
     scrut' = fiExpr dflags scrut_binds scrut
     [shared_binds, scrut_binds, rhs_binds]
-       = sepBindsByDropPoint dflags False [freeVarsOf scrut, rhs_fvs] to_drop
+       = sepBindsByDropPoint dflags False [scrut_fvs, rhs_fvs] to_drop
     rhs_fvs   = freeVarsOf rhs `delVarSetList` (case_bndr : alt_bndrs)
     scrut_fvs = freeVarsOf scrut