diff options
author | EuAndreh <eu@euandre.org> | 2023-03-27 07:51:46 -0300 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2023-03-27 07:51:46 -0300 |
commit | c227facb380177eaea6179b73fcb9de4a21f6c8f (patch) | |
tree | 9ed7db7903a2364de43af43c58bef4abef468a11 | |
parent | system.scm: Stop trimming slurped files by default (diff) | |
download | toph-c227facb380177eaea6179b73fcb9de4a21f6c8f.tar.gz toph-c227facb380177eaea6179b73fcb9de4a21f6c8f.tar.xz |
system.scm: Simpler code for extending the "user" list
Notes
See CI logs with:
git notes --ref=refs/notes/ci-logs show c227facb380177eaea6179b73fcb9de4a21f6c8f
git notes --ref=refs/notes/ci-data show c227facb380177eaea6179b73fcb9de4a21f6c8f
Exit status: 0
Duration: 50
-rw-r--r-- | src/infrastructure/guix/system.scm | 3 |
1 files changed, 1 insertions, 2 deletions
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)))) |