ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

http-client: No 'setvbuf' for non-file ports.

Browse source 
* guix/http-client.scm (http-fetch): Do not call 'setvbuf' on non-file
ports.
This commit is contained in:
Ludovic Courtès 2016-03-16 10:20:45 +01:00
parent 247d498aaa
commit 409e4ac6e3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/http-client.scm
View file

@ -243,7 +243,7 @@ (define* (http-fetch uri #:key port (text? #f) (buffered? #t)
(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.