diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-23 17:32:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-23 17:32:12 +0100 |
| commit | 21b7f18f84b2f3817b468e3f137069745916d80c (patch) | |
| tree | f9a0c6bdc5c4253ca048ee69ae00bf448b0e2185 | |
| parent | 8015a6bfa7cbb017155c518a53fda6ca2ad2ec44 (diff) | |
| download | build-coordinator-21b7f18f84b2f3817b468e3f137069745916d80c.tar build-coordinator-21b7f18f84b2f3817b468e3f137069745916d80c.tar.gz | |
Add some additional logging around the uploading of build logs
As there seems to be some failures in this area.
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index b74e114..e7c17aa 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -663,13 +663,18 @@ port. Also, the port used can be changed by passing the --port option.\n" (dump-port file-port request-port)) #:binary #t)) #:headers `((Authorization . ,auth-value))))) - (when (>= (response-code response) 400) - (raise-exception - (make-exception-with-message - (coordinator-handle-failed-request 'PUT - (uri-path uri) - response - body)))))))) + (if (>= (response-code response) 400) + (raise-exception + (make-exception-with-message + (coordinator-handle-failed-request 'PUT + (uri-path uri) + response + body))) + (begin + (simple-format #t "~A: successfully uploaded log file (~A)\n" + build-id + (response-code response)) + #t)))))) #:times 9 #:delay (+ 30 (random 60)))) |