diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-06 12:49:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-06 12:51:51 +0100 |
| commit | c229937c6ab38fa3e2a3906b0f47f9abe68553a0 (patch) | |
| tree | bb88e016dfb80784a19255c297cce94aeb85c57c | |
| parent | 7b1b43a27a250790bae7ea7989b0fa95531c2715 (diff) | |
| download | guix-c229937c6ab38fa3e2a3906b0f47f9abe68553a0.tar.gz | |
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.
| -rw-r--r-- | gnu/services/guix.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index 2dfedc553e..5aa8f8f1a2 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -294,13 +294,7 @@ (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 @@ ((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 |