From aedbf9b8730b99790a49e3a01fbd59388fcc0c93 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 1 Mar 2014 12:15:47 +0100
Subject: [PATCH] offload: 'remote-pipe' uses the right SSH key.
* guix/scripts/offload.scm (remote-pipe): Pass -i when invoking
%LSHG-COMMAND.
---
guix/scripts/offload.scm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index e48e31547ae..5b971302f3f 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -161,6 +161,10 @@ (define (remote-pipe machine mode command)
(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
--
GitLab