amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: 'service-parameters' becomes 'service-value'.

Browse source 
* 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:
Ludovic Courtès 2017-04-15 22:12:37 +02:00
parent af3f64477c
commit efe7d19a9e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
6 changed files with 24 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix/scripts/system.scm
View file

@ -289,7 +289,7 @@ This is currently very conservative in that it does not stop or unload any
running service. Unloading or stopping the wrong service ('udev', say) could
bring the system down."
(define new-services
(service-parameters
(service-value
(fold-services (operating-system-services os)
#:target-type shepherd-root-service-type)))
@ -487,7 +487,7 @@ open connection to the store."
(define (service-node-label service)
"Return a label to represent SERVICE."
(let ((type (service-kind service))
(value (service-parameters service)))
(value (service-value service)))
(string-append (symbol->string (service-type-name type))
(cond ((or (number? value) (symbol? value))
(string-append " " (object->string value)))
@ -711,7 +711,7 @@ output when building a system derivation, such as a disk image."
(let* ((services (operating-system-services os))
(pid1 (fold-services services
#:target-type shepherd-root-service-type))
(shepherds (service-parameters pid1)) ;list of <shepherd-service>
(shepherds (service-value pid1)) ;list of <shepherd-service>
(sinks (filter (lambda (service)
(null? (shepherd-service-requirement service)))
shepherds)))