Hi, Oleg Pykhalov <go.wig...@gmail.com> skribis:
> Seems like extend-openssh-authorized-keys procedure does not use keys > argument. We could fix it like: > > diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm > index 7fbbe383e5..4bb3969b95 100644 > --- a/gnu/services/ssh.scm > +++ b/gnu/services/ssh.scm > @@ -558,7 +558,7 @@ (define (extend-openssh-authorized-keys config keys) > (openssh-configuration > (inherit config) > (authorized-keys > - (match (openssh-configuration-authorized-keys config) > + (match (append (openssh-configuration-authorized-keys config) keys) > (((users _ ...) ...) > ;; Build a user/key-list mapping. > (let ((user-keys (alist->vhash Indeed. Please push! Thanks, Ludo’.
