X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FsimplCore%2FSimplCore.lhs;h=2fd10268a368ea7ba75f296356cb8ecd87ae7ab4;hb=647546977c3b6869c027b33c3de841ff13afc912;hp=24c8603a27187240f044d2525b9b7831a5b77e90;hpb=5902b3d706a4892a2e9265f5cc53fe2950bdb27b;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs
index 24c8603..2fd1026 100644
--- 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]);
 
-	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' })
     }