summaryrefslogtreecommitdiff
path: root/rts/Trace.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Trace.c')
-rw-r--r--rts/Trace.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/rts/Trace.c b/rts/Trace.c
index df5147ca05..e3934d668e 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -309,7 +309,10 @@ void traceCapsetEvent_ (EventTypeNum tag,
StgWord info)
{
#ifdef DEBUG
- if (RtsFlags.TraceFlags.tracing == TRACE_STDERR) {
+ if (RtsFlags.TraceFlags.tracing == TRACE_STDERR && TRACE_sched)
+ // When events go to stderr, it is annoying to see the capset
+ // events every time, so we only emit them with -Ds.
+ {
ACQUIRE_LOCK(&trace_utx);
tracePreface();