From d5ad3dd59aeeffd15a6b4c6fac1b12396d4342ff Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 12 Dec 2022 19:58:25 +0000
Subject: 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.
---
 gnu/services/guix.scm | 48 ++++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

(limited to 'gnu')

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
-- 
cgit 1.4.1