~ruther/guix-local: ssh: ‘open-ssh-session’ displays the port number upon error.

96802f490d3ba5d9ad7c43bc37d683e43540e3c0 — Ludovic Courtès 2 years ago 2931967

ssh: ‘open-ssh-session’ displays the port number upon error.

* guix/ssh.scm (open-ssh-session): Show the port number in error message.

Change-Id: I18a3dc54223bb29782dcdd43d3252c720525c31d

patch browse .tar.gz

1 files changed, 3 insertions(+), 3 deletions(-)

M guix/ssh.scm

M guix/ssh.scm => guix/ssh.scm +3 -3

@@ 1,5 1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016-2021, 2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016-2021, 2023-2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;


@@ 180,8 180,8 @@ to SSH server at '~a'")
                                        (get-error session)))))))))))
       (x
        ;; Connection failed or timeout expired.
-       (raise (formatted-message (G_ "SSH connection to '~a' failed: ~a~%")
-                                 host (get-error session)))))))
+       (raise (formatted-message (G_ "SSH connection to '~a' port ~a failed: ~a~%")
+                                 host (or port 22) (get-error session)))))))
 
 (define* (remote-inferior session #:optional become-command)
   "Return a remote inferior for the given SESSION.  If BECOME-COMMAND is