diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index ca579f2..14dd160 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -577,6 +577,13 @@ (uri-port client-communication-uri) build-coordinator) + ;; Guile seems to just stop listening on ports, so try to + ;; monitor that internally and just quit if it happens + (spawn-port-monitoring-fiber (uri-port agent-communication-uri) + finished?) + (spawn-port-monitoring-fiber (uri-port client-communication-uri) + finished?) + (wait finished?)) #:hz 10 #:parallelism 2)) |