[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 (file)
--- 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