[project @ 1999-06-24 12:49:26 by simonmar]

Fix non-compiling code

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index fe1dec4..6c365b7 100644 (file)
--- 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   $