From b19649a132e83d0b8a29a685e9b8c1b061ef0dfa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 9 Jul 2015 10:06:19 +0200 Subject: [PATCH] offload: Add 'ssh-options' field to . * guix/scripts/offload.scm ()[ssh-options]: New field. (remote-pipe): Use it. (send-files): Likewise. --- guix/scripts/offload.scm | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index e6be8b4465..c0df03b98f 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -69,6 +69,8 @@ (speed build-machine-speed ; inexact real (default 1.0)) (features build-machine-features ; list of strings + (default '())) + (ssh-options build-machine-ssh-options ; list of strings (default '()))) (define-record-type* @@ -200,10 +202,11 @@ not be started." ;; XXX: Remove '-i' when %LSHG-COMMAND really is lshg. "-i" (build-machine-private-key machine) - (build-machine-name machine) - (if quote? - (map shell-quote command) - command)))) + (append (build-machine-ssh-options machine) + (list (build-machine-name machine)) + (if quote? + (map shell-quote command) + command))))) ;;; @@ -448,12 +451,14 @@ success, #f otherwise." (format #f "~{~a~%~}" files)) ((missing pids) (filtered-port - (list (which %lshg-command) - "-l" (build-machine-user machine) - "-p" (number->string (build-machine-port machine)) - "-i" (build-machine-private-key machine) - (build-machine-name machine) - "guix" "archive" "--missing") + (append (list (which %lshg-command) + "-l" (build-machine-user machine) + "-p" (number->string + (build-machine-port machine)) + "-i" (build-machine-private-key machine)) + (build-machine-ssh-options machine) + (cons (build-machine-name machine) + '("guix" "archive" "--missing"))) (open-input-string files))) ((result) (get-string-all missing)))