Subject: [bug#36404] [PATCH 1/5] ssh: Add 'identity' keyword to 'open-ssh-session'.

From: [email-masked] (Jakob L. Kreuze)
Date: Fri, 28 Jun 2019 09:35:06 -0400

* guix/ssh.scm (open-ssh-session): Add 'identity' keyword argument.
---
 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
--- a/guix/ssh.scm
+++ b/guix/ssh.scm
@@ -57,12 +57,13 @@
 (define %compression
   "[email-masked],zlib")
 
-(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
-- 
2.22.0