From c229937c6ab38fa3e2a3906b0f47f9abe68553a0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
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')

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
-- 
cgit v1.2.3