diff options
Diffstat (limited to 'guix-build-coordinator/utils/fibers.scm')
| -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 () |