Add initial support for submitting builds

This provides similar functionality as provided by the
guix-build-coordinator-queue-builds-from-guix-data-service script, but I think
this is a better place for it.

Currently submitting builds isn't possible from the command line options, but
that could be supported in the future.

1 files changed, 10 insertions, 14 deletions

diff --git a/scripts/bffe.in b/scripts/bffe.in
index b85b2fe..8febcc9 100644
--- a/scripts/bffe.in
+++ b/scripts/bffe.in
@@ -31,7 +31,7 @@
              (gcrypt pk-crypto)
              (guix pki)
              (prometheus)
-             (bffe server))
+             (bffe))
 
 (define %options
   ;; Specifications of the command-line options
@@ -116,16 +116,12 @@
                  (assq-ref opts 'host)
                  (assq-ref opts 'port))
 
-  (let* ((metrics-registry (make-metrics-registry
-                            #:namespace
-                            "bffe")))
-
-    (start-bffe-web-server
-     (assq-ref opts 'port)
-     (assq-ref opts 'host)
-     (assq-ref opts 'assets-directory)
-     (assq-ref opts 'event-source)
-     metrics-registry
-     #:controller-args
-     (list (assq-ref opts 'title)
-           (assq-ref opts 'template-directory)))))
+  (run-bffe-service
+   #:web-server-args
+   (list #:port (assq-ref opts 'port)
+         #:host (assq-ref opts 'host)
+         #:assets-directory (assq-ref opts 'assets-directory)
+         #:events-source (assq-ref opts 'event-source)
+         #:controller-args
+         (list #:title (assq-ref opts 'title)
+               #:template-directory (assq-ref opts 'template-directory)))))