diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-11-15 18:00:58 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-11-15 18:00:58 +0000 |
| commit | 0a9f59c1156d3bd89d55488bed228499bcc0058f (patch) | |
| tree | 1d81fc62f951898bdeaba109331362d96b0087eb /guix-build-coordinator/agent-messaging/http.scm | |
| parent | a18fa609876d564d85eac44ae4a367eaa0bda5b6 (diff) | |
| download | build-coordinator-0a9f59c1156d3bd89d55488bed228499bcc0058f.tar build-coordinator-0a9f59c1156d3bd89d55488bed228499bcc0058f.tar.gz | |
Fix the uri when calling coordinator-handle-failed-request
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index e47d660..9116b05 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -326,11 +326,13 @@ (when (>= (response-code response) 400) (raise-exception (make-exception-with-message - (coordinator-handle-failed-request log - 'PUT - (uri-path uri) - response - body)))))))))) + (coordinator-handle-failed-request + log + 'PUT + (uri-path + (uri #:resume? (integer? bytes))) + response + body)))))))))) #:times 100 #:delay (random 15)) |