offload: 'remote-pipe' uses the right SSH key.

* guix/scripts/offload.scm (remote-pipe): Pass -i when invoking
  %LSHG-COMMAND.
This commit is contained in:
Ludovic Courtès 2014-03-01 12:15:47 +01:00
parent 165f4b2add
commit aedbf9b873
1 changed files with 4 additions and 0 deletions

View File

@ -161,6 +161,10 @@ running lsh gateway upon success, or #f on failure."
(lambda ()
(apply open-pipe* mode %lshg-command
"-l" (build-machine-user machine) "-z"
;; XXX: Remove '-i' when %LSHG-COMMAND really is lshg.
"-i" (build-machine-private-key machine)
(build-machine-name machine)
command))
(lambda args