diff options
author | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-02-11 21:26:33 +0100 |
---|---|---|
committer | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-02-11 21:28:04 +0100 |
commit | ceb5285f06b1ecab4efa9b99cb2d51bbd1c08f03 (patch) | |
tree | 3bdb42110b6c384758f9e376c13e02f42a03a613 | |
parent | 98c0977809a4a7bb3996d44f7d99505275194328 (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 => |