diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-05-14 17:21:46 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-05-14 17:21:46 +0200 |
| commit | 61b1df6f2791a2afa291b56708d73a5264ca70eb (patch) | |
| tree | 314ddb96391b25e83e9a31637be0f1a7f52cc249 /guix/ssh.scm | |
| parent | bdb8267680f14ee5d3df9d029f23279c1457c211 (diff) | |
| parent | 4be014128e1c422f37b56f9a6b3420b4e85c4302 (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/ssh.scm')
| -rw-r--r-- | guix/ssh.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/ssh.scm b/guix/ssh.scm index 59fd002dc7..4fb145230d 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -18,7 +18,7 @@ (define-module (guix ssh) #:use-module (guix store) - #:use-module ((guix ui) #:select (_ N_)) + #:use-module ((guix ui) #:select (G_ N_)) #:use-module (ssh session) #:use-module (ssh auth) #:use-module (ssh key) @@ -80,13 +80,13 @@ Throw an error on failure." (disconnect! session) (raise (condition (&message - (message (format #f (_ "SSH authentication failed for '~a': ~a~%") + (message (format #f (G_ "SSH authentication failed for '~a': ~a~%") host (get-error session))))))))) (x ;; Connection failed or timeout expired. (raise (condition (&message - (message (format #f (_ "SSH connection to '~a' failed: ~a~%") + (message (format #f (G_ "SSH connection to '~a' failed: ~a~%") host (get-error session)))))))))) (define* (remote-daemon-channel session @@ -269,7 +269,7 @@ LOCAL. When RECURSIVE? is true, retrieve the closure of FILES." (&message (message (format #f - (_ "failed to retrieve store items from '~a'") + (G_ "failed to retrieve store items from '~a'") (remote-store-host remote))))))) (let ((result (import-paths local port))) |