diff options
| author | simonmar <unknown> | 1999-06-24 12:49:26 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-06-24 12:49:26 +0000 |
| commit | 1ecd88e03f099fb8bf5b8f475194add44bc19346 (patch) | |
| tree | 79ace5fd22eaa16b9e0f088134c6216114bc3f63 | |
| parent | f47da5c31f75558b1100c6318112706b959b8f8b (diff) | |
| download | haskell-1ecd88e03f099fb8bf5b8f475194add44bc19346.tar.gz | |
[project @ 1999-06-24 12:49:26 by simonmar]
Fix non-compiling code
| -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 $ |