X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplify.lhs;h=6c365b73485b92c496c45f7a7e529df0783c20cf;hb=1ecd88e03f099fb8bf5b8f475194add44bc19346;hp=fe1dec4014180ca7462fed5816a9048ff2131348;hpb=f47da5c31f75558b1100c6318112706b959b8f8b;p=ghc-hetmet.git

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 	$