From 1ecd88e03f099fb8bf5b8f475194add44bc19346 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 24 Jun 1999 12:49:26 +0000
Subject: [PATCH] [project @ 1999-06-24 12:49:26 by simonmar] Fix
 non-compiling code

---
 ghc/compiler/simplCore/Simplify.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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