From: simonpj@microsoft.com <unknown>
Date: Tue, 16 Oct 2007 12:44:50 +0000 (+0000)
Subject: Show program size in the simplifier-bailing-out message
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fc8c1160ac56e2f68832a13096eee6e1213406f7

Show program size in the simplifier-bailing-out message
---

diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs
index 701f0c2..64c4c92 100644
--- a/compiler/simplCore/SimplCore.lhs
+++ b/compiler/simplCore/SimplCore.lhs
@@ -429,7 +429,7 @@ simplifyPgm mode switches hsc_env us imp_rule_base guts
 	    if  max_iterations > 2 then
 		hPutStr stderr ("NOTE: Simplifier still going after " ++ 
 				show max_iterations ++ 
-			    	" iterations; bailing out.\n")
+			    	" iterations; bailing out.  Size = " ++ show (coreBindsSize binds) )
 	    else 
 		return ();
 #endif