http-client: No 'setvbuf' for non-file ports.
* guix/http-client.scm (http-fetch): Do not call 'setvbuf' on non-file ports.
This commit is contained in:
parent
247d498aaa
commit
409e4ac6e3
|
@ -243,7 +243,7 @@ Raise an '&http-get-error' condition if downloading fails."
|
||||||
(base64-encode
|
(base64-encode
|
||||||
(string->utf8 str))))))
|
(string->utf8 str))))))
|
||||||
(_ '()))))
|
(_ '()))))
|
||||||
(unless buffered?
|
(unless (or buffered? (not (file-port? port)))
|
||||||
(setvbuf port _IONBF))
|
(setvbuf port _IONBF))
|
||||||
(let*-values (((resp data)
|
(let*-values (((resp data)
|
||||||
;; Try hard to use the API du jour to get an input port.
|
;; Try hard to use the API du jour to get an input port.
|
||||||
|
|
Loading…
Reference in New Issue