diff options
| author | Attila Lendvai <attila.lendvai@gmail.com> | 2023-07-29 14:02:37 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-08-22 11:17:53 +0200 |
| commit | e318b62df361624e3bac70f658bcf5600ba5ca79 (patch) | |
| tree | 18e48fc80466d260ee4353233e5878f24f744d8f /guix | |
| parent | 2274d71f94e6973df1ebc312c88b876aaa19588a (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.scm | 5 |
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~%") |