[commit: ghc] wip/float-join-points: Fix a bug in (f592436)

[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/f592436eaba59b5c7383e070b331491a27483b42/ghc

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

commit f592436eaba59b5c7383e070b331491a27483b42
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 22 14:58:51 2018 +0000

    Fix a bug in
    
      commit 68ccfbd60c7bca7a3fc2b1918b5e78b1c85e6014
      Author: Simon Peyton Jones <simonpj at microsoft.com>
      Date:   Fri Oct 27 16:20:24 2017 +0100
    
          Wip on floating join points
    
    in add_one in 'abstract' in 'SimplUtils.abstractFloat'


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

f592436eaba59b5c7383e070b331491a27483b42
 compiler/simplCore/SimplUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplUtils.hs b/compiler/simplCore/SimplUtils.hs
index 34d29e5..dd172a9 100644
--- a/compiler/simplCore/SimplUtils.hs
+++ b/compiler/simplCore/SimplUtils.hs
@@ -1735,7 +1735,7 @@ abstractFloats dflags top_lvl main_vs float_binds in_scope body
         vs_here_set   = mkDVarSet vs_here
         fv_subst'     = foldl add_one fv_subst bndrs
         fvs_one (bndr, rhs) = exprFVs rhs `unionFV` varTypeTyCoFVs bndr
-        add_one subst bndr = extendVarEnv fv_subst bndr vs_here_set
+        add_one subst bndr = extendVarEnv subst bndr vs_here_set
 
                 -- For a recursive group, it's a bit of a pain to work out the minimal
                 -- set of tyvars over which to abstract: