From 7fa3f4ae24df776bd7d969b7ac06a71e1e37cbc7 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 14 Oct 2024 05:37:06 +0200 Subject: refactor(mcdowell): implement privileged-programs of operating-system* --- systems/mcdowell.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index 44a9f0a..945c5c3 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -73,6 +73,7 @@ (%default-locale-libcs (@ (gnu system locale) %default-locale-libcs)) (%default-nss (@ (gnu system nss) %default-nss)) (%suweren-locale-definitions (@ (suweren system) %suweren-locale-definitions)) + (%default-privileged-programs (@ (gnu system) %default-privileged-programs)) (base-pam-services ((@ (gnu system pam) base-pam-services))) (default-skeletons ((@ (gnu system shadow) default-skeletons))) (file-systems* (@ (machines amd64) file-systems*)) @@ -107,10 +108,10 @@ (locale-definitions %suweren-locale-definitions) (locale-libcs %default-locale-libcs) (name-service-switch %default-nss) - (essential-services (operating-system-default-essential-services - (@ (gnu system) this-operating-system))) + (essential-services (operating-system-default-essential-services (@ (gnu system) this-operating-system))) (services services-mcdowell) - (pam-services base-pam-services)))) + (pam-services base-pam-services) + (privileged-programs %default-privileged-programs)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- cgit v1.2.3