diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-01-22 14:58:51 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-01-22 15:04:12 +0000 |
| commit | f592436eaba59b5c7383e070b331491a27483b42 (patch) | |
| tree | baa8da62c5c93f0907555522ec5305f21e0448aa | |
| parent | 9b522eba9829ea9ab0fb6d4d0b4cc762d1d0fd91 (diff) | |
| download | haskell-f592436eaba59b5c7383e070b331491a27483b42.tar.gz | |
Fix a bug in
commit 68ccfbd60c7bca7a3fc2b1918b5e78b1c85e6014
Author: Simon Peyton Jones <simonpj@microsoft.com>
Date: Fri Oct 27 16:20:24 2017 +0100
Wip on floating join points
in add_one in 'abstract' in 'SimplUtils.abstractFloat'
| -rw-r--r-- | compiler/simplCore/SimplUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplUtils.hs b/compiler/simplCore/SimplUtils.hs index 34d29e5ff6..dd172a91df 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: |