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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 96802f490d3ba5d9ad7c43bc37d683e43540e3c0
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Apr 2 14:17:25 2024 +0200

    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
---
 guix/ssh.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/ssh.scm b/guix/ssh.scm
index c4617d2c74..ae506df14c 100644
--- a/guix/ssh.scm
+++ b/guix/ssh.scm
@@ -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