mirror of
https://https.git.savannah.gnu.org/git/guix.git/
synced 2025-07-13 02:20:53 +02:00
services: 'service-parameters' becomes 'service-value'.
* gnu/services.scm (<service>)[parameters]: Rename to... [value]: ... this. Change calls to 'service-parameters' to 'service-value'. * gnu/system.scm, gnu/tests/base.scm, guix/scripts/system.scm, tests/services.scm: Likewise. * doc/guix.texi (Service Reference): Adjust accordingly.
This commit is contained in:
parent
af3f64477c
commit
efe7d19a9e
6 changed files with 24 additions and 19 deletions
|
@ -615,7 +615,7 @@ hardware-related operations as necessary when booting a Linux container."
|
|||
(let* ((services (operating-system-services os #:container? container?))
|
||||
(boot (fold-services services #:target-type boot-service-type)))
|
||||
;; BOOT is the script as a monadic value.
|
||||
(service-parameters boot)))
|
||||
(service-value boot)))
|
||||
|
||||
(define (operating-system-user-accounts os)
|
||||
"Return the list of user accounts of OS."
|
||||
|
@ -623,12 +623,12 @@ hardware-related operations as necessary when booting a Linux container."
|
|||
(account (fold-services services
|
||||
#:target-type account-service-type)))
|
||||
(filter user-account?
|
||||
(service-parameters account))))
|
||||
(service-value account))))
|
||||
|
||||
(define (operating-system-shepherd-service-names os)
|
||||
"Return the list of Shepherd service names for OS."
|
||||
(append-map shepherd-service-provision
|
||||
(service-parameters
|
||||
(service-value
|
||||
(fold-services (operating-system-services os)
|
||||
#:target-type
|
||||
shepherd-root-service-type))))
|
||||
|
@ -638,7 +638,7 @@ hardware-related operations as necessary when booting a Linux container."
|
|||
(let* ((services (operating-system-services os #:container? container?))
|
||||
(system (fold-services services)))
|
||||
;; SYSTEM contains the derivation as a monadic value.
|
||||
(service-parameters system)))
|
||||
(service-value system)))
|
||||
|
||||
(define* (operating-system-profile os #:key container?)
|
||||
"Return a derivation that builds the system profile of OS."
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue