diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-04-02 14:17:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-04-04 15:48:47 +0200 |
| commit | 96802f490d3ba5d9ad7c43bc37d683e43540e3c0 (patch) | |
| tree | 553a1bf1c73a2cb49efa081aa2ad57117c61a22f /guix | |
| parent | 2931967720848082769002351d2a18c7ad43e811 (diff) | |
| download | guix-96802f490d3ba5d9ad7c43bc37d683e43540e3c0.tar guix-96802f490d3ba5d9ad7c43bc37d683e43540e3c0.tar.gz | |
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
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/ssh.scm | 6 |
1 files 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 |