From 96802f490d3ba5d9ad7c43bc37d683e43540e3c0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 2 Apr 2024 14:17:25 +0200 Subject: [PATCH] =?UTF-8?q?ssh:=20=E2=80=98open-ssh-session=E2=80=99=20dis?= =?UTF-8?q?plays=20the=20port=20number=20upon=20error.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * 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 +;;; Copyright © 2016-2021, 2023-2024 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -180,8 +180,8 @@ (define* (open-ssh-session host #:key user port identity (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