Make simplifier report which phase it is doing in -ddump output

diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs
index 24c8603..2fd1026 100644 (file)
--- a/compiler/simplCore/SimplCore.lhs
+++ b/compiler/simplCore/SimplCore.lhs
@@ -390,7 +390,7 @@ simplifyPgm mode switches hsc_env us imp_rule_base guts
                         text "",
                         pprSimplCount counts_out]);
 
                         text "",
                         pprSimplCount counts_out]);
 

-       endPass dflags "Simplify" Opt_D_verbose_core2core binds';
+       endPass dflags ("Simplify phase " ++ phase_info ++ " done") Opt_D_verbose_core2core binds';

 
        return (counts_out, guts { mg_binds = binds' })
     }
 
        return (counts_out, guts { mg_binds = binds' })
     }