X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=0bd669041fefefd19c2daec1c6e263ce95910677;hb=a5168e30f331c6fe912cca4f53be8544ce6800d5;hp=2d28ae6552c97234b169d5497db6c3fccebdf94b;hpb=e923340fea0fea85f55600b8ee709f1cf8b62803;p=ghc-hetmet.git

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