diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-03 00:20:23 +0200 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-03 00:20:23 +0200 |
commit | d2c12e3522379f0bf7995b9baf932ae5f86eb633 (patch) | |
tree | 2bcc602f5298949966ab986c01f7428088a4de40 | |
parent | e8549f4fe22930cc871a8db334d00d63179a773b (diff) | |
download | build-coordinator-d2c12e3522379f0bf7995b9baf932ae5f86eb633.tar build-coordinator-d2c12e3522379f0bf7995b9baf932ae5f86eb633.tar.gz |
Fix using with-upload-monitoring in submit-one-output
-rw-r--r-- | guix-build-coordinator/agent.scm | 4 |
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))))) |