[commit: ghc] master: Rename a local variable (313720a)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/313720a453889ddd05da02f4f2c31eb3bc3734d2/ghc

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

commit 313720a453889ddd05da02f4f2c31eb3bc3734d2
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Apr 20 17:13:31 2018 +0100

    Rename a local variable


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

313720a453889ddd05da02f4f2c31eb3bc3734d2
 compiler/simplCore/Simplify.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs
index 249d19f..2580720 100644
--- a/compiler/simplCore/Simplify.hs
+++ b/compiler/simplCore/Simplify.hs
@@ -1696,7 +1696,7 @@ simplIdF env var cont
 
 completeCall :: SimplEnv -> OutId -> SimplCont -> SimplM (SimplFloats, OutExpr)
 completeCall env var cont
-  | Just expr <- callSiteInline dflags var unfolding
+  | Just expr <- callSiteInline dflags var active_unf
                                 lone_variable arg_infos interesting_cont
   -- Inline the variable's RHS
   = do { checkedTick (UnfoldingDone var)
@@ -1715,7 +1715,7 @@ completeCall env var cont
     (lone_variable, arg_infos, call_cont) = contArgs cont
     n_val_args       = length arg_infos
     interesting_cont = interestingCallContext env call_cont
-    unfolding        = activeUnfolding (getMode env) var
+    active_unf       = activeUnfolding (getMode env) var
 
     dump_inline unfolding cont
       | not (dopt Opt_D_dump_inlinings dflags) = return ()