From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:57215) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hgr47-0002e7-41 for guix-patches@gnu.org; Fri, 28 Jun 2019 09:37:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hgr3z-0001ha-BL for guix-patches@gnu.org; Fri, 28 Jun 2019 09:37:17 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:55272) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hgr3m-0001Tj-DW for guix-patches@gnu.org; Fri, 28 Jun 2019 09:37:07 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hgr3m-000324-9K for guix-patches@gnu.org; Fri, 28 Jun 2019 09:37:02 -0400 Subject: [bug#36404] [PATCH 1/5] ssh: Add 'identity' keyword to 'open-ssh-session'. Resent-Message-ID: From: zerodaysfordays@sdf.lonestar.org (Jakob L. Kreuze) References: <87o92ianbj.fsf@sdf.lonestar.org> <87imspj0ks.fsf_-_@sdf.lonestar.org> Date: Fri, 28 Jun 2019 09:35:06 -0400 In-Reply-To: <87imspj0ks.fsf_-_@sdf.lonestar.org> (Jakob L. Kreuze's message of "Fri, 28 Jun 2019 09:34:11 -0400") Message-ID: <87ef3dj0j9.fsf_-_@sdf.lonestar.org> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: "Thompson, David" Cc: 36404@debbugs.gnu.org --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable * guix/ssh.scm (open-ssh-session): Add 'identity' keyword argument. =2D-- guix/ssh.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix/ssh.scm b/guix/ssh.scm index 9b9baf54ea..a2387564a4 100644 =2D-- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -57,12 +57,13 @@ (define %compression "zlib@openssh.com,zlib") =20 =2D(define* (open-ssh-session host #:key user port +(define* (open-ssh-session host #:key user port identity (compression %compression)) "Open an SSH session for HOST and return it. When USER and PORT are #f,= use default values or whatever '~/.ssh/config' specifies; otherwise use them. Throw an error on failure." (let ((session (make-session #:user user + #:identity identity #:host host #:port port #:timeout 10 ;seconds =2D-=20 2.22.0 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEEa1VJLOiXAjQ2BGSm9Qb9Fp2P2VoFAl0WF4oACgkQ9Qb9Fp2P 2VrRcA//bcOgim0LcMr9SgMA7NaRIOF6JgUtHYB2JyaHBa2s5mmnhZsXHRokRh/r DLCZ5fDpQBVvMDI28KHN8AO72C6aYz7B+PikbfNfTHf2a1yN13awEEaoMjJDQLxs Oycdz93g80TOsEaWVDR/rsqO2eTm+L5hrtT0rnLaPBZzdeWuY4T2Ky3cA1Id7ADx bttnisgLgS1b3PWbRF7fZ3BSarKCL/XHsCyWw7/RW+kHhTcAb3+ccj3fIlXlwgFY rVmLWdM3gODbuYZN2shYCH8FdYIyobxSP0qlL28psHVWnPTgXAcc6gIhcp3dedB/ IEVoBaOEWOQHuUveVeNA8rhpqVKaG4nMkPC0l4PpAJMbSoVg0bP12VQNFbmaX64U 8nLeWc/zoHCmyG8tibhb2oXW1vIIr3rer5u1DkRPVoNIMK7SgN4Mrg3YhNsimKJw S7SqHYhzVNPTr1g7uWlE2lAJEsHIxYBz3nfgJSTEbFn4SoSWWf1bXuFUEGFx5OOq Ivo/qnGX31+GQ/wMHyZ/g2WqsUh2uSmutIcIiLVVGkPkcall6hcnXHBlsrrEzeIE dxXJMJ1SrxYyNr1RfttoxYrxfTp1DhcHIyP7cbAyu4O7AuSr2UwWlHjR3cmH/6Vj qDR485hfLftTU0eRcLsuV2JmSW71Pnyz9H2JXbYlkXGPST45wH0= =jxdx -----END PGP SIGNATURE----- --=-=-=--