diff options
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 752f354..06c3495 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -366,7 +366,8 @@ (lambda (request-port) (call-with-input-file file (lambda (file-port) - (dump-port file-port request-port)) + (dump-port file-port request-port + #:buffer-size (expt 2 20))) #:binary #t)) #:headers `((Authorization . ,auth-value))))) (if (>= (response-code response) 400) |