diff --git a/guix/build/download.scm b/guix/build/download.scm index 2e0b019d38..7b8e1aac3b 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -218,6 +218,9 @@ host name without trailing dot." (thunk))))))) (with-https-proxy (let ((s (open-socket-for-uri uri))) + ;; Buffer input and output on this port. + (setvbuf s _IOFBF %http-receive-buffer-size) + (if https? (tls-wrap s (uri-host uri)) s)))))