futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: Add default values.

Browse Source 
* gnu/services.scm (boot-service-type, activation-service-type,
etc-service-type, profile-service-type): Add default-value.
* gnu/system/shadow.scm (account-service-type): Add default-value.
This commit is contained in:
Andrew Tropin 2023-05-16 17:53:36 +04:00
parent 8659f5e3ee
commit 66ecffbeba
No known key found for this signature in database
GPG Key ID: 2208D20958C1DEB0
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/services.scm
View File

@ -403,6 +403,7 @@ directory."
boot-script-entry))) boot-script-entry)))
(compose identity) (compose identity)
(extend compute-boot-script) (extend compute-boot-script)
(default-value #f)
(description (description
"Produce the operating system's boot script, which is spawned "Produce the operating system's boot script, which is spawned
by the initrd once the root file system is mounted."))) by the initrd once the root file system is mounted.")))
@ -661,6 +662,7 @@ system directory."
activation-profile-entry))) activation-profile-entry)))
(compose identity) (compose identity)
(extend second-argument) (extend second-argument)
(default-value #f)
(description (description
"Run @dfn{activation} code at boot time and upon "Run @dfn{activation} code at boot time and upon
@command{guix system reconfigure} completion."))) @command{guix system reconfigure} completion.")))
@ -803,6 +805,7 @@ directory."
(service-extension system-service-type etc-entry))) (service-extension system-service-type etc-entry)))
(compose concatenate) (compose concatenate)
(extend append) (extend append)
(default-value '())
(description "Populate the @file{/etc} directory."))) (description "Populate the @file{/etc} directory.")))
(define-deprecated (etc-service files) (define-deprecated (etc-service files)
@ -869,6 +872,7 @@ executables, making them setuid and/or setgid.")))
packages->profile-entry))) packages->profile-entry)))
(compose concatenate) (compose concatenate)
(extend append) (extend append)
(default-value '())
(description (description
"This is the @dfn{system profile}, available as "This is the @dfn{system profile}, available as
@file{/run/current-system/profile}. It contains packages that the sysadmin @file{/run/current-system/profile}. It contains packages that the sysadmin

1
gnu/system/shadow.scm
View File

@ -458,6 +458,7 @@ the /etc/skel directory for those."
(const '(user-homes))) (const '(user-homes)))
(service-extension etc-service-type (service-extension etc-service-type
etc-files))) etc-files)))
(default-value #f)
(description (description
"Ensure the specified user accounts and groups exist, as well "Ensure the specified user accounts and groups exist, as well
as each account home directory."))) as each account home directory.")))