diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-08 21:21:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-10 20:34:47 +0100 |
| commit | d277fa10b8492dc8e34d3763cc70f2b6665c71ad (patch) | |
| tree | 7dfdf25e6918b6f8e0ce8b64600ad749d534a6f6 /scripts | |
| parent | 2f9659f82a1bab7f5c006fb1920e9209e9530605 (diff) | |
| download | build-coordinator-d277fa10b8492dc8e34d3763cc70f2b6665c71ad.tar build-coordinator-d277fa10b8492dc8e34d3763cc70f2b6665c71ad.tar.gz | |
Start implementing the HTTP agent messaging features
Diffstat (limited to 'scripts')
| -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))))) |