diff options
| -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 |