aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-05-23 17:32:12 +0100
committerChristopher Baines <mail@cbaines.net>2020-05-23 17:32:12 +0100
commit21b7f18f84b2f3817b468e3f137069745916d80c (patch)
treef9a0c6bdc5c4253ca048ee69ae00bf448b0e2185 /guix-build-coordinator/agent-messaging
parent8015a6bfa7cbb017155c518a53fda6ca2ad2ec44 (diff)
downloadbuild-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.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
-rw-r--r--guix-build-coordinator/agent-messaging/http.scm19
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))))