X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStats.c;h=ae3d8431576434ee52c98426e3f2997530e312bb;hb=1ff927678455690bc03d6bf90c593e5eb98c1d5f;hp=7c8042a66d6d6479d69d70a72bf0a2bcbb2fae99;hpb=4e3542263207ae49963811aeb84927027e7bb61d;p=ghc-hetmet.git

diff --git a/rts/Stats.c b/rts/Stats.c
index 7c8042a..ae3d843 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -628,11 +628,11 @@ stat_exit(int alloc)
 	    {
 		nat i;
 		Task *task;
+                statsPrintf("                        MUT time (elapsed)       GC time  (elapsed)\n");
 		for (i = 0, task = all_tasks; 
 		     task != NULL; 
 		     i++, task = task->all_link) {
-		    statsPrintf("  Task %2d %-8s :  MUT time: %6.2fs  (%6.2fs elapsed)\n"
-			    "                      GC  time: %6.2fs  (%6.2fs elapsed)\n\n", 
+		    statsPrintf("  Task %2d %-8s :  %6.2fs    (%6.2fs)     %6.2fs    (%6.2fs)\n",
 				i,
 				(task->tso == NULL) ? "(worker)" : "(bound)",
 				TICK_TO_DBL(task->mut_time),
@@ -642,6 +642,8 @@ stat_exit(int alloc)
 		}
 	    }
 
+	    statsPrintf("\n");
+
             {
                 nat i;
                 lnat sparks_created   = 0;