From: simonmar <unknown>
Date: Thu, 24 Jun 1999 12:49:26 +0000 (+0000)
Subject: [project @ 1999-06-24 12:49:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~6096
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1ecd88e03f099fb8bf5b8f475194add44bc19346

[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
--- 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 	$