From: simonmar <unknown>
Date: Tue, 2 Jan 2001 16:13:11 +0000 (+0000)
Subject: [project @ 2001-01-02 16:13:11 by simonmar]
X-Git-Tag: Approximately_9120_patches~2991
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1d9f4f6f24cc4a4f815f67181d9d9cf7bf40e768;p=ghc-hetmet.git

[project @ 2001-01-02 16:13:11 by simonmar]
Remove redundant flag test
---

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