diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-13 22:46:32 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-13 22:46:32 +0100 |
| commit | 3c0e6e6080242656104143612ba57bc210779709 (patch) | |
| tree | e2581e76649984983407ff699c9d7f30997b97d2 /guix | |
| parent | cecd72d55ae974f8ebe900e0088071f843866935 (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.scm | 4 |
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") |