diff options
author | Ludovic Courtès <ludo@gnu | |
---|---|---|
2023-03-16 | gnu: home: services: Add home-kodi-service-type.... | Jan (janneke) Nieuwenhuizen |
2023-03-16 | gnu: home: services: Add home-znc-service-type.... | Jan (janneke) Nieuwenhuizen |
parent | 2b8d715da510357e9386ceaf15371c99019ce596 (diff) | |
download | guix-0dc63ce519c5f98b2186d1871176e2fac3a6926b.tar.gz guix-0dc63ce519c5f98b2186d1871176e2fac3a6926b.zip |
services: openssh: Fix computation of the authorized-key directory.
Fixes a bug introduced in 1f29ed4a812f86c45e2d9c37fd9f80f6d0418293,
whereby 'authorized-key-directory' would end up creating empty files for
authorized keys passed as an extension.
See <https://issues.guix.gnu.org/55359>.
* gnu/services/ssh.scm (extend-openssh-authorized-keys): Call
'alist->vhash' on the alist resulting from the 'append' call.
Diffstat (limited to 'gnu/services')
-rw-r--r-- | gnu/services/ssh.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm index 95646ac033..aa024599a1 100644 --- a/gnu/services/ssh.scm +++ b/gnu/services/ssh.scm @@ -572,10 +572,9 @@ of user-name/file-like tuples." (inherit config) (authorized-keys (match (append (openssh-configuration-authorized-keys config) keys) - (((users _ ...) ...) + ((and alist ((users _ ...) ...)) ;; Build a user/key-list mapping. - (let ((user-keys (alist->vhash - (openssh-configuration-authorized-keys config)))) + (let ((user-keys (alist->vhash alist))) ;; Coalesce the key lists associated with each user. (map (lambda (user) `(,user |