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 /system-configuration.scm | |
| parent | 98c0977809a4a7bb3996d44f7d99505275194328 (diff) | |
Construct the list of system services with append instead of cons*
Diffstat (limited to 'system-configuration.scm')
| -rw-r--r-- | system-configuration.scm | 49 |
1 files changed, 25 insertions, 24 deletions
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 => |