From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 26 Mar 2010 16:31:22 +0000 (+0000)
Subject: tidy up spacing in stderr traces
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ab6d5c717abc8d6918c891a646e9f1c403355483

tidy up spacing in stderr traces
---

diff --git a/rts/Trace.c b/rts/Trace.c
index c8a0285..be3fff7 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -204,7 +204,7 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag,
         debugBelch("cap %d: GC done\n", cap->no);
         break;
     default:
-        debugBelch("cap %2d: thread %lu: event %d\n\n", 
+        debugBelch("cap %d: thread %lu: event %d\n\n", 
                    cap->no, (lnat)tso->id, tag);
         break;
     }
@@ -244,7 +244,7 @@ static void traceCap_stderr(Capability *cap, char *msg, va_list ap)
     ACQUIRE_LOCK(&trace_utx);
 
     tracePreface();
-    debugBelch("cap %2d: ", cap->no);
+    debugBelch("cap %d: ", cap->no);
     vdebugBelch(msg,ap);
     debugBelch("\n");