diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-03-16 10:20:45 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-03-16 11:27:37 +0100 |
| commit | 409e4ac6e3d86491901a9c0bb422b0415c906964 (patch) | |
| tree | 9c67eac67dfecb8cd1b157e2ac78acffe9a5564b | |
| parent | 247d498aaa7938efe9acbd83ea8721e477a7236d (diff) | |
http-client: No 'setvbuf' for non-file ports.
* guix/http-client.scm (http-fetch): Do not call 'setvbuf' on non-file
ports.
| -rw-r--r-- | guix/http-client.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index 25693824ed9..97a1e26d3e2 100644 --- a/guix/http-client.scm +++ b/guix/http-client.scm | |||
| @@ -243,7 +243,7 @@ Raise an '&http-get-error' condition if downloading fails." | |||
| 243 | (base64-encode | 243 | (base64-encode |
| 244 | (string->utf8 str)))))) | 244 | (string->utf8 str)))))) |
| 245 | (_ '())))) | 245 | (_ '())))) |
| 246 | (unless buffered? | 246 | (unless (or buffered? (not (file-port? port))) |
| 247 | (setvbuf port _IONBF)) | 247 | (setvbuf port _IONBF)) |
| 248 | (let*-values (((resp data) | 248 | (let*-values (((resp data) |
| 249 | ;; Try hard to use the API du jour to get an input port. | 249 | ;; Try hard to use the API du jour to get an input port. |