From 98430df5d0730818aa6eeb72ec598c523756840e Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 2 May 2023 16:06:41 +0200
Subject: Simplify starting the build coordinator

This code is used in the Guix system service, and this simplification will
reduce the complexity there and reduce the need to change it in the future.
---
 guix-build-coordinator/coordinator.scm | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

(limited to 'guix-build-coordinator/coordinator.scm')

diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 7f28f13..04cb498 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -315,12 +315,20 @@
 (define (build-coordinator-get-state-id build-coordinator)
   ((build-coordinator-get-state-id-proc build-coordinator)))
 
-(define* (make-build-coordinator #:key datastore hooks
-                                 (metrics-registry (make-metrics-registry
-                                                    #:namespace
-                                                    "guixbuildcoordinator"))
-                                 (allocation-strategy
-                                  basic-build-allocation-strategy))
+(define* (make-build-coordinator
+          #:key
+          database-uri-string
+          (metrics-registry
+           (make-metrics-registry
+            #:namespace
+            "guixbuildcoordinator"))
+          (datastore
+           (database-uri->datastore
+            database-uri-string
+            #:metrics-registry metrics-registry))
+          hooks
+          (allocation-strategy
+           basic-build-allocation-strategy))
   (and (or (list? hooks)
            (begin
              (simple-format
-- 
cgit v1.2.3