summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-12-12 19:58:25 +0000
committerChristopher Baines <mail@cbaines.net>2022-12-12 19:58:25 +0000
commitd5ad3dd59aeeffd15a6b4c6fac1b12396d4342ff (patch)
treec6a5a6df6110cc4106970f8ea2d616d6592fe892 /gnu
parentc1695bcaddf4ae3aaf2992efd64891dce1922c39 (diff)
downloadguix-d5ad3dd59aeeffd15a6b4c6fac1b12396d4342ff.tar.gz
services: guix-build-coordinator: Fix service startup.
Previously the service would keep starting more and more processes.

* gnu/services/guix.scm (guix-build-coordinator-shepherd-services): Fix how
make-forkexec-constructor is called.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/guix.scm48
1 files changed, 24 insertions, 24 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index 486d9f49d7..65bf0b5a7f 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -336,30 +336,30 @@
       (start #~(lambda args
                  (parameterize ((%current-logfile-date-format ""))
                    (apply
-                    make-forkexec-constructor
-                    (list #$(make-guix-build-coordinator-start-script
-                             database-uri-string
-                             allocation-strategy
-                             "/var/run/guix-build-coordinator/pid"
-                             package
-                             #:agent-communication-uri-string
-                             agent-communication-uri-string
-                             #:client-communication-uri-string
-                             client-communication-uri-string
-                             #:hooks hooks
-                             #:parallel-hooks parallel-hooks
-                             #:guile guile))
-                    #:user #$user
-                    #:group #$group
-                    #:pid-file "/var/run/guix-build-coordinator/pid"
-                    ;; Allow time for migrations to run
-                    #:pid-file-timeout 60
-                    #:environment-variables
-                    `(,(string-append
-                        "GUIX_LOCPATH=" #$glibc-utf8-locales "/lib/locale")
-                      "LC_ALL=en_US.utf8"
-                      "PATH=/run/current-system/profile/bin") ; for hooks
-                    #:log-file "/var/log/guix-build-coordinator/coordinator.log"
+                    (make-forkexec-constructor
+                     (list #$(make-guix-build-coordinator-start-script
+                              database-uri-string
+                              allocation-strategy
+                              "/var/run/guix-build-coordinator/pid"
+                              package
+                              #:agent-communication-uri-string
+                              agent-communication-uri-string
+                              #:client-communication-uri-string
+                              client-communication-uri-string
+                              #:hooks hooks
+                              #:parallel-hooks parallel-hooks
+                              #:guile guile))
+                     #:user #$user
+                     #:group #$group
+                     #:pid-file "/var/run/guix-build-coordinator/pid"
+                     ;; Allow time for migrations to run
+                     #:pid-file-timeout 60
+                     #:environment-variables
+                     `(,(string-append
+                         "GUIX_LOCPATH=" #$glibc-utf8-locales "/lib/locale")
+                       "LC_ALL=en_US.utf8"
+                       "PATH=/run/current-system/profile/bin") ; for hooks
+                     #:log-file "/var/log/guix-build-coordinator/coordinator.log")
                     args))))
       (stop #~(make-kill-destructor))
       (modules