diff options
author | Christopher Baines <mail@cbaines.net> | 2021-06-08 21:31:08 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-06-08 21:31:08 +0100 |
commit | e34fac676f355cf29b7ee232af28c7484ed25566 (patch) | |
tree | a53922e2e96750c3e28e45ddf519f65a725bff38 | |
parent | 3b1653c3735ae6e96612e219b6e9f88773634a10 (diff) | |
download | build-coordinator-e34fac676f355cf29b7ee232af28c7484ed25566.tar build-coordinator-e34fac676f355cf29b7ee232af28c7484ed25566.tar.gz |
Support reporting bytes sent when submitting outputs
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 38ccb70..5e753eb 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -244,7 +244,10 @@ . args) (apply - (lambda* (build-id output-name file #:key (log default-log)) + (lambda* (build-id output-name file + #:key + (log default-log) + report-bytes-sent) (define auth-value (string-append "Basic " @@ -272,7 +275,8 @@ (lambda (port) (write-file file port)) #:level 9)) - #:headers `((Authorization . ,auth-value)))) + #:headers `((Authorization . ,auth-value)) + #:report-bytes-sent report-bytes-sent)) #:times 48 #:delay (random 15))) args)) |