diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-04-20 17:13:31 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-04-27 08:26:33 +0100 |
| commit | 313720a453889ddd05da02f4f2c31eb3bc3734d2 (patch) | |
| tree | 0477c95c8da52ffb8be870f1ede3870b3c7740f9 | |
| parent | 705dcb0d47462739f575456223b8259b48d36183 (diff) | |
| download | haskell-313720a453889ddd05da02f4f2c31eb3bc3734d2.tar.gz | |
Rename a local variable
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index 249d19f5ca..258072019d 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 () |