me/guix
Archived
1
0
Fork 0
Code Activity

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

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

Change-Id: I18a3dc54223bb29782dcdd43d3252c720525c31d
This commit is contained in:
Ludovic Courtès 2024-04-02 14:17:25 +02:00
parent 2931967720
commit 96802f490d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/ssh.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -180,8 +180,8 @@ to SSH server at '~a'")
(get-error session))))))))))) (get-error session)))))))))))
(x (x
;; Connection failed or timeout expired. ;; Connection failed or timeout expired.
(raise (formatted-message (G_ "SSH connection to '~a' failed: ~a~%") (raise (formatted-message (G_ "SSH connection to '~a' port ~a failed: ~a~%")
host (get-error session))))))) host (or port 22) (get-error session)))))))
(define* (remote-inferior session #:optional become-command) (define* (remote-inferior session #:optional become-command)
"Return a remote inferior for the given SESSION. If BECOME-COMMAND is "Return a remote inferior for the given SESSION. If BECOME-COMMAND is