diff options
| -rw-r--r-- | rts/Threads.c | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index fdd7eeadf0..af1758f2ef 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -925,20 +925,20 @@ printThreadStatus(StgTSO *t) void *label = lookupThreadLabel(t->id); if (label) debugBelch("[\"%s\"] ",(char *)label); } - switch (t->what_next) { - case ThreadKilled: - debugBelch("has been killed"); - break; - case ThreadComplete: - debugBelch("has completed"); - break; - default: - printThreadBlockage(t); - } - if (t->dirty) { - debugBelch(" (TSO_DIRTY)"); - } - debugBelch("\n"); + switch (t->what_next) { + case ThreadKilled: + debugBelch("has been killed"); + break; + case ThreadComplete: + debugBelch("has completed"); + break; + default: + printThreadBlockage(t); + } + if (t->dirty) { + debugBelch(" (TSO_DIRTY)"); + } + debugBelch("\n"); } void |