diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-22 15:28:26 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-22 15:28:26 +0100 |
commit | af550daaabeab4da5e980b647860c6f1df1b2033 (patch) | |
tree | 063d9025bbe33370dd028af4087493ab1876a6a6 | |
parent | e001d6791981c5ef3f13f3d9f1cbeff78579ead8 (diff) | |
download | build-coordinator-af550daaabeab4da5e980b647860c6f1df1b2033.tar build-coordinator-af550daaabeab4da5e980b647860c6f1df1b2033.tar.gz |
Tweak logging around agent output submission
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 86c2950..304b1e5 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -376,15 +376,15 @@ (seek file-port bytes SEEK_SET) (log 'INFO "resuming upload from byte " bytes)) - (with-time-logging - (simple-format #f "sending ~A" file) - (dump-port* file-port port - #:reporter reporter))) + (dump-port* file-port port + #:reporter reporter)) #:binary #t))) #:headers `((Authorization . ,auth-value)) #:method (if bytes 'POST 'PUT) #:streaming? #t))) + (log 'DEBUG "finished sending " file) + (let loop ((line (get-line body))) (unless (eof-object? line) (report-bytes-hashed |