aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2023-03-27 07:51:46 -0300
committerEuAndreh <eu@euandre.org>2023-03-27 07:51:46 -0300
commitc227facb380177eaea6179b73fcb9de4a21f6c8f (patch)
tree9ed7db7903a2364de43af43c58bef4abef468a11
parentsystem.scm: Stop trimming slurped files by default (diff)
downloadtoph-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.scm3
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))))