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~%")