From f7d3c4bb78cf40702268ceecbecc74d7c839629f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 15 Jan 2021 21:53:54 +0000 Subject: Use methods for the agent messaging This will allow adding more agent messaging approaches. --- scripts/guix-build-coordinator-agent.in | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index e8a2f0c..c68f94e 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -28,7 +28,8 @@ (ice-9 textual-ports) ((guix config) #:prefix guix-config:) (guix-build-coordinator utils) - (guix-build-coordinator agent)) + (guix-build-coordinator agent) + (guix-build-coordinator agent-messaging http)) (define %options ;; Specifications of the command-line options @@ -117,8 +118,10 @@ %option-defaults (cdr (program-arguments))))) (run-agent (assq-ref opts 'uuid) - (assq-ref opts 'coordinator) - (assq-ref opts 'password) + (make-http-agent-interface + (assq-ref opts 'coordinator) + (assq-ref opts 'uuid) + (assq-ref opts 'password)) (delete-duplicates (assq-ref opts 'systems)) (assq-ref opts 'max-parallel-builds) (or (assq-ref opts 'derivation-substitute-urls) -- cgit v1.2.3