diff options
Diffstat (limited to 'scripts/guix-build-coordinator.in')
-rw-r--r-- | scripts/guix-build-coordinator.in | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 9a2d282..5bf3d31 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -27,7 +27,8 @@ (ice-9 match) (guix-build-coordinator config) (guix-build-coordinator datastore) - (guix-build-coordinator coordinator)) + (guix-build-coordinator coordinator) + (guix-build-coordinator agent-messaging http)) (define %options ;; Specifications of the command-line options @@ -50,6 +51,16 @@ (option '("update-database") #f #f (lambda (opt name _ result) (alist-cons 'update-database #t result))) + (option '("port") #t #f + (lambda (opt name arg result) + (alist-cons 'port + (string->number arg) + (alist-delete 'port result)))) + (option '("host") #t #f + (lambda (opt name arg result) + (alist-cons 'host + arg + (alist-delete 'host result)))) (option '("show-error-details") #f #f (lambda (opt name _ result) (alist-cons 'show-error-details #t result))))) @@ -58,6 +69,8 @@ ;; Alist of default option values `((update-database . #f) (database . "sqlite://guix_build_coordinator.db") + (port . 8745) + (host . "0.0.0.0") (show-error-details . ,(match (getenv "GUIX_BUILD_COORDINATOR_SHOW_ERROR_DETAILS") (#f #f) @@ -110,4 +123,8 @@ (parameterize ((%show-error-details (assoc-ref opts 'show-error-details))) - (peek "OPTS" opts))))) + (http-agent-messaging-start-server + (assq-ref opts 'port) + (assq-ref opts 'host) + (assq-ref opts 'secret-key-base) + datastore))))) |