From e318b62df361624e3bac70f658bcf5600ba5ca79 Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Sat, 29 Jul 2023 14:02:37 +0200 Subject: ssh: Also print the user when authentication fails. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/ssh.scm (open-ssh-session): Show user in error message. Co-authored-by: Ludovic Courtès --- guix/ssh.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'guix/ssh.scm') diff --git a/guix/ssh.scm b/guix/ssh.scm index b7b9807ebf..c4617d2c74 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -175,8 +175,9 @@ to SSH server at '~a'") (disconnect! session) (raise (condition (&message - (message (format #f (G_ "SSH authentication failed for '~a': ~a~%") - host (get-error session))))))))))) + (message (format #f (G_ "SSH authentication failed for '~a@~a': ~a~%") + (session-get session 'user) host + (get-error session))))))))))) (x ;; Connection failed or timeout expired. (raise (formatted-message (G_ "SSH connection to '~a' failed: ~a~%") -- cgit v1.2.3