diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-02-25 11:16:39 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2022-02-25 11:16:39 -0500 |
commit | 2cc26fd794404c9faf118ff2c8260e58ada22c7c (patch) | |
tree | 8634ab970369a9f396262c32f393dc122f545512 | |
parent | d6e8c0f9f1d15080ed19b7c95a2007fc51dfca70 (diff) | |
download | haskell-2cc26fd794404c9faf118ff2c8260e58ada22c7c.tar.gz |
Revert "simplCore: Correctly extend in-scope set in rule matching"
This reverts commit 8bbdba450980c2b0054e19ae737eeaa3cfdb452d.
-rw-r--r-- | compiler/GHC/Core/Rules.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Rules.hs b/compiler/GHC/Core/Rules.hs index 96f9bece4c..ccfbbe6a78 100644 --- a/compiler/GHC/Core/Rules.hs +++ b/compiler/GHC/Core/Rules.hs @@ -955,7 +955,7 @@ match renv subst e1 (Let bind e2) mco | otherwise = Nothing where - (flt_subst', bind') = substBind (rv_fltR renv `extendInScopeList` rs_bndrs subst) bind + (flt_subst', bind') = substBind (rv_fltR renv) bind new_bndrs = bindersOf bind' ------------------------ Lambdas --------------------- |