mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ssh: Also print the user when authentication fails.

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

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Attila Lendvai 2023-07-29 14:02:37 +02:00 committed by Ludovic Courtès
parent 2274d71f94
commit e318b62df3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/ssh.scm
View file

@ -175,8 +175,9 @@ (define* (open-ssh-session host #:key user port identity
(disconnect! session) (disconnect! session)
(raise (condition (raise (condition
(&message (&message
(message (format #f (G_ "SSH authentication failed for '~a': ~a~%") (message (format #f (G_ "SSH authentication failed for '~a@~a': ~a~%")
host (get-error session))))))))))) (session-get session 'user) host
(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' failed: ~a~%")