diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-17 09:34:07 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-17 09:34:07 +0100 |
| commit | 4ac4141741214fe6e97fb2ebe405d36228aea596 (patch) | |
| tree | 02b3eff61eaa7f4b40d44a1de3724384b4553070 | |
| parent | 14e18eed98d1836662d8787d08f7a37cf8c2f69d (diff) | |
| download | build-coordinator-4ac4141741214fe6e97fb2ebe405d36228aea596.tar build-coordinator-4ac4141741214fe6e97fb2ebe405d36228aea596.tar.gz | |
Guard against signaling the error condition not working
As this seems to happen when the process runs out of file descriptors.q
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm index a89f9ab..5362b18 100644 --- a/guix-build-coordinator/utils/fibers.scm +++ b/guix-build-coordinator/utils/fibers.scm @@ -298,7 +298,11 @@ If already in the worker thread, call PROC immediately." (simple-format (current-error-port) "port monitoring fiber failed to connect to ~A: ~A\n" port exn) - (signal-condition! error-condition)) + (signal-condition! error-condition) + (sleep 10) + (simple-format (current-error-port) + "port monitoring fiber error-condition unresponsive") + (primitive-exit 1)) (lambda () (with-fibers-port-timeouts (lambda () |