diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-24 10:51:55 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-24 10:51:55 +0100 |
| commit | 99981dc3270d79ae0b83f94386e26cc75a7162b3 (patch) | |
| tree | 608085d2da2443b47536417c5dd4ecd060e8383c | |
| parent | c79f455b07af96a51a73d400f35c53dd63c99454 (diff) | |
| download | build-coordinator-99981dc3270d79ae0b83f94386e26cc75a7162b3.tar build-coordinator-99981dc3270d79ae0b83f94386e26cc75a7162b3.tar.gz | |
Don't call report-bytes-hashed with #f
Just log the line instead.
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index dee014a..04f4ea4 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -387,8 +387,11 @@ (let loop ((line (get-line body))) (unless (eof-object? line) - (report-bytes-hashed - (string->number line)) + (let ((bytes (string->number line))) + (if (number? bytes) + (report-bytes-hashed bytes) + (log 'DEBUG "error parsing submit-output response line: " + line))) (loop (get-line body)))) (log 'DEBUG "perform upload " file ", response code: " |