branch wip-offload updated: tmp28

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch wip-offload
in repository guix-cuirass.

The following commit(s) were added to refs/heads/wip-offload by this push:
     new b79f8a5  tmp28
b79f8a5 is described below

commit b79f8a5a02ee20946b9f6a5f81772bec38d4bb1e
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Dec 18 14:19:01 2020 +0100

    tmp28
---
 src/cuirass/remote-server.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 32efab2..bf96033 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -348,6 +348,10 @@ build server signature."
         (format port "~aSignature: 1;~a;~a~%"
                 info (gethostname) signature)))))
 
+(define (url-fetch* url file)
+  (parameterize ((current-error-port (%make-void-port "w")))
+    (url-fetch url file)))
+
 (define (download-nar cache-directory outputs url)
   "Download in CACHE-DIRECTORY the OUTPUTS from the substitute server at URL."
   (for-each
@@ -362,10 +366,10 @@ build server signature."
 
        (unless (file-exists? nar-file)
          (mkdir-p (dirname nar-file))
-         (url-fetch nar-url nar-file))
+         (url-fetch* nar-url nar-file))
 
        (unless (file-exists? narinfo-file)
-         (url-fetch narinfo-url narinfo-file)
+         (url-fetch* narinfo-url narinfo-file)
          (sign-narinfo! narinfo-file))
 
        (unless (file-exists? hash-file)
@@ -377,7 +381,7 @@ build server signature."
 (define (download-log-file cache-directory derivation url)
   (let ((url (string-append url "/log/" (basename derivation)))
         (log-file (log-path cache-directory derivation)))
-    (and (url-fetch url log-file) log-file)))
+    (url-fetch* url log-file)))
 
 (define (add-to-store outputs url)
   "Add the OUTPUTS that are available from the substitute server at URL to the