From 3c0e6e6080242656104143612ba57bc210779709 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 13 Mar 2014 22:46:32 +0100 Subject: [PATCH] offload: Convert the port number to a string when invoking lsh. * guix/scripts/offload.scm (remote-pipe, send-files): Pass the result of 'build-machine-port' to 'number->string'. --- guix/scripts/offload.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 4a105e946f..c9ea457db1 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -165,7 +165,7 @@ (define (remote-pipe machine mode command) (lambda () (apply open-pipe* mode %lshg-command "-z" "-l" (build-machine-user machine) - "-p" (build-machine-port machine) + "-p" (number->string (build-machine-port machine)) ;; XXX: Remove '-i' when %LSHG-COMMAND really is lshg. "-i" (build-machine-private-key machine) @@ -331,7 +331,7 @@ (define (missing-files files) (missing (filtered-port (list (which %lshg-command) "-l" (build-machine-user machine) - "-p" (build-machine-port machine) + "-p" (number->string (build-machine-port machine)) "-i" (build-machine-private-key machine) (build-machine-name machine) "guix" "archive" "--missing")