TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
Take advantage of changes in the build coordinator to reduce the complexity of
the service startup script.

* gnu/services/guix.scm (make-guix-build-coordinator-start-script): Remove the
metrics registry and datastore.
This commit is contained in:
Christopher Baines 2023-05-06 12:49:01 +01:00
parent 7b1b43a27a
commit c229937c6a
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/services/guix.scm
View file

@ -294,13 +294,7 @@ (define* (make-guix-build-coordinator-start-script database-uri-string
(simple-format #t "starting the guix-build-coordinator:\n ~A\n" (simple-format #t "starting the guix-build-coordinator:\n ~A\n"
(current-filename)) (current-filename))
(let* ((metrics-registry (make-metrics-registry (let* ((hooks
#:namespace
"guixbuildcoordinator"))
(datastore (database-uri->datastore
#$database-uri-string
#:metrics-registry metrics-registry))
(hooks
(list #$@(map (match-lambda (list #$@(map (match-lambda
((name . hook-gexp) ((name . hook-gexp)
#~(cons '#$name #$hook-gexp))) #~(cons '#$name #$hook-gexp)))
@ -311,9 +305,8 @@ (define* (make-guix-build-coordinator-start-script database-uri-string
((name . _) (assq-ref hooks name))) ((name . _) (assq-ref hooks name)))
%default-hooks))) %default-hooks)))
(build-coordinator (make-build-coordinator (build-coordinator (make-build-coordinator
#:datastore datastore #:database-uri-string #$database-uri-string
#:hooks hooks-with-defaults #:hooks hooks-with-defaults
#:metrics-registry metrics-registry
#:allocation-strategy #$allocation-strategy))) #:allocation-strategy #$allocation-strategy)))
(run-coordinator-service (run-coordinator-service