From: simonpj@microsoft.com <unknown>
Date: Tue, 23 May 2006 13:00:22 +0000 (+0000)
Subject: Bug-fix to patch "Run simplifier before SpecConstr"
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d646207d8c2768fd821bc2a383a2c2aaf6935067

Bug-fix to patch "Run simplifier before SpecConstr"
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 2d28ae6..0bd6690 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -727,7 +727,7 @@ getCoreToDo dflags
 
 	++ 
 
-     if opt_level >= 2 then
+     (if opt_level >= 2 then
 	   [  CoreLiberateCase,
 	      CoreDoSimplify (SimplPhase 0) [
 		  MaxSimplifierIterations max_iter
@@ -736,8 +736,8 @@ getCoreToDo dflags
 			-- Reason: see Note [Shadowing] in SpecConstr.lhs
 	     CoreDoSpecConstr
 	   ]
-     else
-	   []
+      else
+	   [])
 
 	++