me/guix
Archived
1
0
Fork 0
Code Activity

services: guix-build-coordinator: Fix service startup.

Browse source 
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.
This commit is contained in:
Christopher Baines 2022-12-12 19:58:25 +00:00
parent c1695bcadd
commit d5ad3dd59a
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
gnu/services/guix.scm
View file

@ -336,30 +336,30 @@
(start #~(lambda args (start #~(lambda args
(parameterize ((%current-logfile-date-format "")) (parameterize ((%current-logfile-date-format ""))
(apply (apply
make-forkexec-constructor (make-forkexec-constructor
(list #$(make-guix-build-coordinator-start-script (list #$(make-guix-build-coordinator-start-script
database-uri-string database-uri-string
allocation-strategy allocation-strategy
"/var/run/guix-build-coordinator/pid" "/var/run/guix-build-coordinator/pid"
package package
#:agent-communication-uri-string #:agent-communication-uri-string
agent-communication-uri-string agent-communication-uri-string
#:client-communication-uri-string #:client-communication-uri-string
client-communication-uri-string client-communication-uri-string
#:hooks hooks #:hooks hooks
#:parallel-hooks parallel-hooks #:parallel-hooks parallel-hooks
#:guile guile)) #:guile guile))
#:user #$user #:user #$user
#:group #$group #:group #$group
#:pid-file "/var/run/guix-build-coordinator/pid" #:pid-file "/var/run/guix-build-coordinator/pid"
;; Allow time for migrations to run ;; Allow time for migrations to run
#:pid-file-timeout 60 #:pid-file-timeout 60
#:environment-variables #:environment-variables
`(,(string-append `(,(string-append
"GUIX_LOCPATH=" #$glibc-utf8-locales "/lib/locale") "GUIX_LOCPATH=" #$glibc-utf8-locales "/lib/locale")
"LC_ALL=en_US.utf8" "LC_ALL=en_US.utf8"
"PATH=/run/current-system/profile/bin") ; for hooks "PATH=/run/current-system/profile/bin") ; for hooks
#:log-file "/var/log/guix-build-coordinator/coordinator.log" #:log-file "/var/log/guix-build-coordinator/coordinator.log")
args)))) args))))
(stop #~(make-kill-destructor)) (stop #~(make-kill-destructor))
(modules (modules