From c227facb380177eaea6179b73fcb9de4a21f6c8f Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Mon, 27 Mar 2023 07:51:46 -0300 Subject: system.scm: Simpler code for extending the "user" list --- src/infrastructure/guix/system.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src') diff --git a/src/infrastructure/guix/system.scm b/src/infrastructure/guix/system.scm index f898033..0cc8377 100644 --- a/src/infrastructure/guix/system.scm +++ b/src/infrastructure/guix/system.scm @@ -100,8 +100,7 @@ (define authorized-keys (let ((users-with-keys (map (lambda (user) - (append user - (list (slurp (ssh-file-for user))))) + `(,@user ,(slurp (ssh-file-for user)))) (filter (lambda (user) (file-exists? (ssh-file-for user))) users)))) -- cgit v1.2.3