From c229937c6ab38fa3e2a3906b0f47f9abe68553a0 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 6 May 2023 12:49:01 +0100 Subject: 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. --- gnu/services/guix.scm | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'gnu/services/guix.scm') 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 @@ (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 -- cgit v1.2.3