aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-05-03 00:20:23 +0200
committerChristopher Baines <mail@cbaines.net>2023-05-03 00:20:23 +0200
commitd2c12e3522379f0bf7995b9baf932ae5f86eb633 (patch)
tree2bcc602f5298949966ab986c01f7428088a4de40
parente8549f4fe22930cc871a8db334d00d63179a773b (diff)
downloadbuild-coordinator-d2c12e3522379f0bf7995b9baf932ae5f86eb633.tar
build-coordinator-d2c12e3522379f0bf7995b9baf932ae5f86eb633.tar.gz
Fix using with-upload-monitoring in submit-one-output
-rw-r--r--guix-build-coordinator/agent.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index c3c1604..000c78c 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -1077,7 +1077,7 @@ but the guix-daemon claims it's unavailable"
lgr
(derivation-output-path output)
bytes
- (lambda (report-bytes-sent)
+ (lambda (reporter)
(log-msg lgr 'INFO
build-id ": submitting output "
(derivation-output-path output))
@@ -1085,7 +1085,7 @@ but the guix-daemon claims it's unavailable"
build-id output-name
compressed-file
#:log (build-log-procedure lgr build-id)
- #:report-bytes-sent report-bytes-sent)
+ #:reporter reporter)
(log-msg lgr 'INFO
build-id ": finished submitting output "
(derivation-output-path output)))))