diff options
| author | simonmar <unknown> | 2005-04-13 14:02:17 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-04-13 14:02:17 +0000 |
| commit | 8b6fabaf6d91cd76814f02c0c796142494b5485d (patch) | |
| tree | c33a5b74aa8841a847af255331b9b299222a70a4 /ghc/rts/Task.c | |
| parent | b33027133d3c8df16334b8a337a136480894e338 (diff) | |
| download | haskell-8b6fabaf6d91cd76814f02c0c796142494b5485d.tar.gz | |
[project @ 2005-04-13 14:02:17 by simonmar]
stopTaskManager: don't complain too loudly if we can't stop all the
tasks. The IO manager thread turns out to be an offender here;
perhaps we should start sending signals to threads if they don't stop
when they're told to.
Diffstat (limited to 'ghc/rts/Task.c')
| -rw-r--r-- | ghc/rts/Task.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c index 06eab698ee..8e0a2798f9 100644 --- a/ghc/rts/Task.c +++ b/ghc/rts/Task.c @@ -82,7 +82,7 @@ stopTaskManager (void) prodWorker(); yieldThread(); } - errorBelch("%d tasks still running, exiting anyway", tasksRunning); + IF_DEBUG(scheduler, sched_belch("%d tasks still running, exiting anyway", tasksRunning)); /* OLD CODE follows: |