services: guix-build-coordinator: Simpify service startup.
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:
parent
7b1b43a27a
commit
c229937c6a
1 changed files with 2 additions and 9 deletions
|
@ -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"
|
||||
(current-filename))
|
||||
(let* ((metrics-registry (make-metrics-registry
|
||||
#:namespace
|
||||
"guixbuildcoordinator"))
|
||||
(datastore (database-uri->datastore
|
||||
#$database-uri-string
|
||||
#:metrics-registry metrics-registry))
|
||||
(hooks
|
||||
(let* ((hooks
|
||||
(list #$@(map (match-lambda
|
||||
((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)))
|
||||
%default-hooks)))
|
||||
(build-coordinator (make-build-coordinator
|
||||
#:datastore datastore
|
||||
#:database-uri-string #$database-uri-string
|
||||
#:hooks hooks-with-defaults
|
||||
#:metrics-registry metrics-registry
|
||||
#:allocation-strategy #$allocation-strategy)))
|
||||
|
||||
(run-coordinator-service
|
||||
|
|
Loading…
Reference in a new issue