X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTrace.c;h=be3fff72d4cb3bc48098e8658ecd75bf3819e1ef;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=c8a0285837d8646cdfc4e78da5e1861c0d257c7d;hpb=91bfa780ddd229cff6c3d86a8f05e3898ef65e53;p=ghc-hetmet.git

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");