From 647546977c3b6869c027b33c3de841ff13afc912 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 18 May 2006 16:34:48 +0000
Subject: [PATCH] Make simplifier report which phase it is doing in -ddump
 output

---
 compiler/simplCore/SimplCore.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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' })
     }
-- 
1.7.10.4