diff options
author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-12-20 00:05:21 +0100 |
---|---|---|
committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-12-20 00:05:21 +0100 |
commit | 24d4d6fdd67561e0de4b1cea6380e43e63d69646 (patch) | |
tree | 9c3f946b6e7c3d67af44cdcd9710ad8320e90080 /gnu/services/base.scm | |
parent | 92982ecca4efe857666d8b94ad95d2cc7d2ab54b (diff) | |
parent | a512bbd23a2e129cf3d8e71255d504ce8bac77d3 (diff) | |
download | guix-24d4d6fdd67561e0de4b1cea6380e43e63d69646.tar.gz guix-24d4d6fdd67561e0de4b1cea6380e43e63d69646.zip |
Merge branch 'master' into gnome-team
Diffstat (limited to 'gnu/services/base.scm')
-rw-r--r-- | gnu/services/base.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index ab66b12255..0e3f600128 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1772,7 +1772,13 @@ archive' public keys, with GUIX." (mkdir-p (dirname machines-file))) ;; Installed the declared machines file. - (symlink #+(scheme-file "machines.scm" machines) + (symlink #+(scheme-file "machines.scm" + #~((@ (srfi srfi-1) append-map) + (lambda (entry) + (if (build-machine? entry) + (list entry) + entry)) + #$machines)) machines-file)))) (define-record-type* <guix-configuration> |