branch wip-offload updated: tmp24

[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 ea16a5c  tmp24
ea16a5c is described below

commit ea16a5c495f59ddd3d9e2cea69912d7462b13932
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Dec 18 10:57:22 2020 +0100

    tmp24
---
 src/cuirass/remote-server.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 79c7417..cf4cccd 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -31,9 +31,11 @@
   #:use-module (guix scripts)
   #:use-module (guix store)
   #:use-module (guix ui)
+  #:use-module (guix utils)
   #:use-module (guix workers)
   #:use-module (guix build download)
   #:use-module (guix build syscalls)
+  #:use-module (guix build utils)
   #:use-module (gcrypt hash)
   #:use-module (gcrypt pk-crypto)
   #:use-module (simple-zmq)
@@ -249,7 +251,8 @@ be used to reply to the worker."
 ;;; Fetch workers.
 ;;;
 
-(define %default-compression "gzip")
+(define %default-compression
+  "gzip")
 
 (define (zmq-fetch-workers-endpoint)
   "inproc://fetch-workers")
@@ -272,7 +275,7 @@ be used to reply to the worker."
 
 (define (publish-nar-url publish-url store-hash)
   "Return the URL of STORE-HASH nar substitute on PUBLISH-URL."
-  (format #f "~a/nar/~a/~a" publish-url default-compression store-hash))
+  (format #f "~a/nar/~a/~a" publish-url %default-compression store-hash))
 
 (define (publish-narinfo-url publish-url store-hash)
   "Return the URL of STORE-HASH narinfo file on PUBLISH-URL."
@@ -283,13 +286,13 @@ be used to reply to the worker."
 (define (nar-path cache-directory output)
   "Return the path of the NAR file for OUTPUT in CACHE-DIRECTORY."
   (string-append cache-directory "/"
-                 default-compression
+                 %default-compression
                  "/" (basename output) ".nar"))
 
 (define (narinfo-path cache-directory output)
   "Return the path of the NARINFO file for OUTPUT in CACHE-DIRECTORY."
   (string-append cache-directory "/"
-                 default-compression
+                 %default-compression
                  "/" (basename output) ".narinfo"))
 
 (define (hash-path cache-directory store-hash)