diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-06 09:50:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-06 09:50:15 +0200 |
| commit | c822fb8e3467c86f47a93710761fff1a30e7195b (patch) | |
| tree | 8e3b2876d14c4fe0dbf95dc0d09a3cd5c92db6e5 | |
| parent | 0ffcf7cc80e57bd039395791b98187db9a51294b (diff) | |
| download | guix-c822fb8e3467c86f47a93710761fff1a30e7195b.tar guix-c822fb8e3467c86f47a93710761fff1a30e7195b.tar.gz | |
download: Reinstate buffering on connection sockets.
* guix/build/download.scm (open-connection-for-uri): Reinstate call to
'setvbuf' inadvertently removed in d17551d9.
| -rw-r--r-- | guix/build/download.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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))))) |