From 409e4ac6e3d86491901a9c0bb422b0415c906964 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 16 Mar 2016 10:20:45 +0100
Subject: [PATCH] http-client: No 'setvbuf' for non-file ports.

* guix/http-client.scm (http-fetch): Do not call 'setvbuf' on non-file
ports.
---
 guix/http-client.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/http-client.scm b/guix/http-client.scm
index 25693824ed..97a1e26d3e 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -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.