summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorAttila Lendvai <attila.lendvai@gmail.com>2023-07-29 14:02:37 +0200
committerLudovic Courtès <ludo@gnu.org>2023-08-22 11:17:53 +0200
commite318b62df361624e3bac70f658bcf5600ba5ca79 (patch)
tree18e48fc80466d260ee4353233e5878f24f744d8f /guix
parent2274d71f94e6973df1ebc312c88b876aaa19588a (diff)
ssh: Also print the user when authentication fails.
* guix/ssh.scm (open-ssh-session): Show user in error message. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix')
-rw-r--r--guix/ssh.scm5
1 files changed, 3 insertions, 2 deletions
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~%")