02/05: offload: Include the port number in the machine lock file name.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a3af06ad65eb097ddaa9a6fab893e2b688734e04
Author: Ludovic Courtès <address@hidden>
Date:   Sat Sep 28 17:22:39 2019 +0200

    offload: Include the port number in the machine lock file name.
    
    This is useful when a single machine appears several time, with
    different port numbers.
    
    * guix/scripts/offload.scm (machine-slot-file): Add MACHINE's port to
    the file name.
---
 guix/scripts/offload.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 0c0dd9d..bb307ce 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -243,7 +243,8 @@ instead of '~a' of type '~a'~%")
   ;; of these; if we fail, that means all the build slots are already taken.
   ;; Inspired by Nix's build-remote.pl.
   (string-append  (string-append %state-directory "/offload/"
-                                 (build-machine-name machine)
+                                 (build-machine-name machine) ":"
+                                 (number->string (build-machine-port machine))
                                  "/" (number->string slot))))
 
 (define (acquire-build-slot machine)