ssh: 'open-ssh-session' gracefully handles connection timeouts.

* guix/ssh.scm (open-ssh-session): Add case for 'again.
2022-08-09 19:35:53 +02:00 · 2022-08-09 19:35:53 +02:00 · 06ce4e3c06
parent 26bdefd172
commit 06ce4e3c06
1 changed files with 4 additions and 0 deletions
--- a/guix/ssh.scm
+++ b/guix/ssh.scm
@ -162,6 +162,10 @@ (define* (open-ssh-session host #:key user port identity
         ('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