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.

1 files changed, 14 insertions, 6 deletions

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