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.

1 files changed, 2 insertions, 3 deletions

diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index 95646ac033e..aa024599a10 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