diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-05-28 14:52:25 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-05-28 14:52:25 +0100 |
| commit | b23040abfa493351a5b3723ba4be23e4ef5a8e67 (patch) | |
| tree | 675be4f0d1e9b5f6371e72af232b2c98fde06e96 | |
| parent | b81f4c5fd6b732cb73b8ff47b78a8e5643911cea (diff) | |
| download | build-coordinator-b23040abfa493351a5b3723ba4be23e4ef5a8e67.tar build-coordinator-b23040abfa493351a5b3723ba4be23e4ef5a8e67.tar.gz | |
Increase the buffer size for sending outputs and log files
I think this works better.
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 4 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index f223f66..1576c0f 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -302,7 +302,7 @@ (with-time-logging (simple-format #f "sending ~A" file) (dump-port file-port port - #:buffer-size 32768))) + #:buffer-size 65536))) #:headers `((Authorization . ,auth-value))))) (when (>= (response-code response) 400) (raise-exception @@ -354,7 +354,7 @@ (call-with-input-file file (lambda (file-port) (dump-port file-port request-port - #:buffer-size 32768)) + #:buffer-size 65536)) #:binary #t)) #:headers `((Authorization . ,auth-value))))) (if (>= (response-code response) 400) diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 0f51a20..42ba00a 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -293,7 +293,7 @@ upcoming chunk." #:port port))) (set-port-encoding! port "ISO-8859-1") - (setvbuf port 'block 32768) + (setvbuf port 'block 65536) (with-exception-handler (lambda (exp) (simple-format #t "error: PUT ~A: ~A\n" (uri-path uri) exp) @@ -305,10 +305,10 @@ upcoming chunk." (make-gc-guard-port (make-chunked-output-port port - #:buffering 32768 + #:buffering 65536 #:keep-alive? #t)))) - (setvbuf chunked-output-port 'block 32768) + (setvbuf chunked-output-port 'block 65536) ;; A SIGPIPE will kill Guile, so ignore it (sigaction SIGPIPE |