X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplCore.lhs;h=86b4c66c580a3ad8a199dcdb1dd6dca0d56d9a9b;hb=30c39066cfbbb9380fff1f3266405d37af798009;hp=701f0c2f6a9dd7361e63bdef1f7d9dff3c94ad36;hpb=7fc749a43b4b6b85d234fa95d4928648259584f4;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs
index 701f0c2..86b4c66 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) ++ "\n" )
 	    else 
 		return ();
 #endif