From d646207d8c2768fd821bc2a383a2c2aaf6935067 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 23 May 2006 13:00:22 +0000
Subject: [PATCH] Bug-fix to patch "Run simplifier before SpecConstr"

---
 compiler/main/DynFlags.hs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
+	   [])
 
 	++
 
-- 
1.7.10.4