diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:04:04 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:04:04 +0100 |
commit | 991ba7e4feaea40910b3dc4481944d8ee865c497 (patch) | |
tree | 53dcb6a2c4af97a4074fa430dca37ad044fd4704 /guix-build-coordinator/agent-messaging/http.scm | |
parent | ef8ee1c38b294284f5b5ec4543e7a689b92df146 (diff) | |
download | build-coordinator-991ba7e4feaea40910b3dc4481944d8ee865c497.tar build-coordinator-991ba7e4feaea40910b3dc4481944d8ee865c497.tar.gz |
Tweak how outputs are sent
Add time logging, increase the buffer size for dump-file, and increase the
retry times.
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-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 959ac07..1af7f3c 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -557,9 +557,12 @@ port. Also, the port used can be changed by passing the --port option.\n" (call-with-streaming-http-request uri (lambda (port) - (dump-port file-port port)) + (with-time-logging + (simple-format #f "sending ~A" file) + (dump-port file-port port + #:buffer-size (expt 2 20)))) #:headers `((Authorization . ,auth-value)))))) - #:times 3 + #:times 9 #:delay 30) (delete-file template)))) |