diff options
author | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-02-11 21:26:33 +0100 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2023-02-11 21:26:33 +0100 |
commit | 8e022a8f9bde7ce7c02f64294e05b6344ef6dc1d (patch) | |
tree | ab07d32f702229fdff7722ab7f356b6525922627 | |
parent | 4a3e0e32dd0dbca6379a41e1ebe03f137d5aefab (diff) |
Construct the list of system services with append instead of cons*
-rw-r--r-- | aisaka.org | 25 | ||||
-rw-r--r-- | system-configuration.scm | 49 |
2 files changed, 38 insertions, 36 deletions
@@ -75,18 +75,19 @@ https://guix.gnu.org/en/manual/en/html_node/Services.html #+begin_src scheme :noweb-ref system-services (services - (cons* - <<ssh-system-service>> - <<trezor-system-packages>> - (service cups-service-type - (cups-configuration (extensions `(,cups-filters - ,epson-inkjet-printer-escpr)) - (web-interface? #t))) - (service git-daemon-service-type) - (service gnome-desktop-service-type) - (service tor-service-type (tor-configuration - (control-socket? #t))) - <<trezor-udev-rules>> + (append + (list + <<ssh-system-service>> + <<trezor-system-packages>> + (service cups-service-type + (cups-configuration (extensions `(,cups-filters + ,epson-inkjet-printer-escpr)) + (web-interface? #t))) + (service git-daemon-service-type) + (service gnome-desktop-service-type) + (service tor-service-type (tor-configuration + (control-socket? #t))) + <<trezor-udev-rules>>) (modify-services %desktop-services (elogind-service-type configuration => diff --git a/system-configuration.scm b/system-configuration.scm index f29ac61..f1bec80 100644 --- a/system-configuration.scm +++ b/system-configuration.scm @@ -40,30 +40,31 @@ "ntfs-3g")) %base-packages)) (services - (cons* - (service openssh-service-type) - (service - (service-type - (name 'trezor-system-packages) - (extensions - (list - (service-extension profile-service-type - (lambda (_) - (map specification->package - (list - "trezord" - "trezord-udev-rules")))))) - (description "TrezorD packages needed by the system.") - (default-value #f))) - (service cups-service-type - (cups-configuration (extensions `(,cups-filters - ,epson-inkjet-printer-escpr)) - (web-interface? #t))) - (service git-daemon-service-type) - (service gnome-desktop-service-type) - (service tor-service-type (tor-configuration - (control-socket? #t))) - (udev-rules-service 'trezord trezord-udev-rules) + (append + (list + (service openssh-service-type) + (service + (service-type + (name 'trezor-system-packages) + (extensions + (list + (service-extension profile-service-type + (lambda (_) + (map specification->package + (list + "trezord" + "trezord-udev-rules")))))) + (description "TrezorD packages needed by the system.") + (default-value #f))) + (service cups-service-type + (cups-configuration (extensions `(,cups-filters + ,epson-inkjet-printer-escpr)) + (web-interface? #t))) + (service git-daemon-service-type) + (service gnome-desktop-service-type) + (service tor-service-type (tor-configuration + (control-socket? #t))) + (udev-rules-service 'trezord trezord-udev-rules)) (modify-services %desktop-services (elogind-service-type configuration => |