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 e48e31547a..5b971302f3 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -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