summaryrefslogtreecommitdiff
path: root/rts/Trace.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2010-03-26 16:31:22 +0000
committerSimon Marlow <marlowsd@gmail.com>2010-03-26 16:31:22 +0000
commitab6d5c717abc8d6918c891a646e9f1c403355483 (patch)
tree137ef0f9066245dbe914fc614f82fcc8e39afd6b /rts/Trace.c
parent6eb7886a38836b8a6d7445d2003271b4e2125034 (diff)
downloadhaskell-ab6d5c717abc8d6918c891a646e9f1c403355483.tar.gz
tidy up spacing in stderr traces
Diffstat (limited to 'rts/Trace.c')
-rw-r--r--rts/Trace.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Trace.c b/rts/Trace.c
index c8a0285837..be3fff72d4 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");