summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-03-13 22:46:32 +0100
committerLudovic Courtès <ludo@gnu.org>2014-03-13 22:46:32 +0100
commit3c0e6e6080242656104143612ba57bc210779709 (patch)
treee2581e76649984983407ff699c9d7f30997b97d2 /guix
parentcecd72d55ae974f8ebe900e0088071f843866935 (diff)
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'.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/offload.scm4
1 files 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 @@ determined."
(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 @@ success, #f otherwise."
(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")