diff options
| -rw-r--r-- | ghc/compiler/simplCore/Simplify.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs index fe1dec4014..6c365b7348 100644 --- a/ghc/compiler/simplCore/Simplify.lhs +++ b/ghc/compiler/simplCore/Simplify.lhs @@ -995,10 +995,10 @@ rebuild scrut (Select _ bndr alts se cont) -- case (\x.e) of f -> ... -- so better to always do it -= -- Get rid of the case altogether + -- Get rid of the case altogether -- See the extensive notes on case-elimination below -- Remember to bind the binder though! - tick (CaseElim bndr) `thenSmpl_` ( + = tick (CaseElim bndr) `thenSmpl_` ( setSubstEnv se $ simplBinder bndr $ \ bndr' -> completeBinding bndr bndr' scrut $ |