~ruther/guix-local

409e4ac6e3d86491901a9c0bb422b0415c906964 — Ludovic Courtès 10 years ago 247d498
http-client: No 'setvbuf' for non-file ports.

* guix/http-client.scm (http-fetch): Do not call 'setvbuf' on non-file
ports.
1 files changed, 1 insertions(+), 1 deletions(-)

M guix/http-client.scm
M guix/http-client.scm => guix/http-client.scm +1 -1
@@ 243,7 243,7 @@ Raise an '&http-get-error' condition if downloading fails."
                                                     (base64-encode
                                                      (string->utf8 str))))))
                         (_ '()))))
      (unless buffered?
      (unless (or buffered? (not (file-port? port)))
        (setvbuf port _IONBF))
      (let*-values (((resp data)
                     ;; Try hard to use the API du jour to get an input port.