nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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'.
This commit is contained in:
Ludovic Courtès 2014-03-13 22:46:32 +01:00
parent cecd72d55a
commit 3c0e6e6080
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/scripts/offload.scm
View File

@ -165,7 +165,7 @@ determined."
(lambda () (lambda ()
(apply open-pipe* mode %lshg-command "-z" (apply open-pipe* mode %lshg-command "-z"
"-l" (build-machine-user machine) "-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. ;; XXX: Remove '-i' when %LSHG-COMMAND really is lshg.
"-i" (build-machine-private-key machine) "-i" (build-machine-private-key machine)
@ -331,7 +331,7 @@ success, #f otherwise."
(missing (filtered-port (missing (filtered-port
(list (which %lshg-command) (list (which %lshg-command)
"-l" (build-machine-user machine) "-l" (build-machine-user machine)
"-p" (build-machine-port machine) "-p" (number->string (build-machine-port machine))
"-i" (build-machine-private-key machine) "-i" (build-machine-private-key machine)
(build-machine-name machine) (build-machine-name machine)
"guix" "archive" "--missing") "guix" "archive" "--missing")