~ruther/guix-local: ssh: 'open-ssh-session' gracefully handles connection timeouts.

06ce4e3c06145423e66bb5694d800256e762057c — Ludovic Courtès 3 years ago 26bdefd

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

* guix/ssh.scm (open-ssh-session): Add case for 'again.

patch browse .tar.gz .zip

1 files changed, 4 insertions(+), 0 deletions(-)

M guix/ssh.scm

M guix/ssh.scm => guix/ssh.scm +4 -0

@@ 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