diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-11-15 09:59:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-11-16 08:45:14 +0100 |
| commit | 866f37fb7e4f3e0bd695a951071383cdff3da8cd (patch) | |
| tree | 4537a2159fee0f1774ac39a17cec060cba484b16 | |
| parent | c114c9c5d813b61f47f092489ca7ee7893936abc (diff) | |
| download | guix-866f37fb7e4f3e0bd695a951071383cdff3da8cd.tar.gz | |
download: Improve efficiency of 'write-request' over TLS.
This is another instance of <https://bugs.gnu.org/22966>. The Microsoft-IIS/7.5 server at static.nvd.nist.gov would sometimes hang when receiving our requests byte by byte. * guix/build/download.scm (tls-wrap) [!guile-2.0]: Add 'setvbuf' call.
| -rw-r--r-- | guix/build/download.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index 90de269f9b..4490d225e6 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -306,6 +306,13 @@ host name without trailing dot." ;; never be closed. So we use `fileno', but keep a weak reference to ;; PORT, so the file descriptor gets closed when RECORD is GC'd. (register-tls-record-port record port) + + ;; Write HTTP requests line by line rather than byte by byte: + ;; <https://bugs.gnu.org/22966>. This is not possible on Guile 2.0. + (cond-expand + (guile-2.0 #f) + (else (setvbuf record 'line))) + record))) (define (ensure-uri uri-or-string) ;XXX: copied from (web http) |