diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 20 |
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 |