01/03: ssh: 'open-ssh-session' gracefully handles connection timeouts.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 06ce4e3c06145423e66bb5694d800256e762057c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Aug 9 19:35:53 2022 +0200

    ssh: 'open-ssh-session' gracefully handles connection timeouts.
    
    * guix/ssh.scm (open-ssh-session): Add case for 'again.
---
 guix/ssh.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/ssh.scm b/guix/ssh.scm
index a6f0f2eb96..1b825a2573 100644
--- a/guix/ssh.scm
+++ b/guix/ssh.scm
@@ -162,6 +162,10 @@ server at '~a': ~a")
          ('success
           (session-set! session 'timeout timeout)
           session)
+         ('again
+          (raise (formatted-message (G_ "timeout while connecting \
+to SSH server at '~a'")
+                                    (session-get session 'host))))
          (x
           (match (userauth-gssapi! session)
             ('success