diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-13 09:07:04 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-13 09:07:04 +0000 |
| commit | bce23c532fd662a65b8d5353a6f16f86292481a1 (patch) | |
| tree | 8e55b6ebc5453bf65e189f006f61f2efa44bbbdf /guix-build-coordinator | |
| parent | 1d287df74b37477e5e14cdc90ad1ba4f1f3c9f40 (diff) | |
| download | build-coordinator-bce23c532fd662a65b8d5353a6f16f86292481a1.tar build-coordinator-bce23c532fd662a65b8d5353a6f16f86292481a1.tar.gz | |
Move creating the pid file
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index bb280aa..3844d72 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -459,11 +459,6 @@ (lambda (scheduler port) (display "#<scheduler>" port))) - (when pid-file - (call-with-output-file pid-file - (lambda (port) - (simple-format port "~A\n" (getpid))))) - (when update-datastore? (datastore-update (build-coordinator-datastore build-coordinator))) @@ -598,6 +593,11 @@ build-coordinator utility-thread-pool) + (when pid-file + (call-with-output-file pid-file + (lambda (port) + (simple-format port "~A\n" (getpid))))) + ;; 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) |