From 1d9f4f6f24cc4a4f815f67181d9d9cf7bf40e768 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 2 Jan 2001 16:13:11 +0000
Subject: [PATCH] [project @ 2001-01-02 16:13:11 by simonmar] Remove redundant
 flag test

---
 ghc/compiler/simplCore/SimplCore.lhs |   11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 6b50c4e..af45946 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -425,13 +425,10 @@ simplifyPgm dflags rule_base
 		      ++ " out of " ++ show max_iterations)
 		     (pprSimplCount counts') ;
 
-	   if dopt Opt_D_dump_simpl_iterations dflags then
-		endPass dflags 
-                        ("Simplifier iteration " ++ show iteration_no ++ " result")
-			Opt_D_verbose_core2core
-			binds'
-	   else
-		return [] ;
+	   endPass dflags 
+                    ("Simplifier iteration " ++ show iteration_no ++ " result")
+		    Opt_D_dump_simpl_iterations
+		    binds' ;
 
 		-- Stop if we've run out of iterations
 	   if iteration_no == max_iterations then
-- 
1.7.10.4