branch master updated: services: Add default values.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

abcdw pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 66ecffbeba services: Add default values.
66ecffbeba is described below

commit 66ecffbeba0685ff2f1071db8aeb2393986afb97
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Tue May 16 17:53:36 2023 +0400

    services: Add default values.
    
    * 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.
---
 gnu/services.scm      | 4 ++++
 gnu/system/shadow.scm | 1 +
 2 files changed, 5 insertions(+)

diff --git a/gnu/services.scm b/gnu/services.scm
index d6c7ad0553..31eba9f035 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -403,6 +403,7 @@ directory."
                                           boot-script-entry)))
                 (compose identity)
                 (extend compute-boot-script)
+                (default-value #f)
                 (description
                  "Produce the operating system's boot script, which is spawned
 by the initrd once the root file system is mounted.")))
@@ -661,6 +662,7 @@ system directory."
                                           activation-profile-entry)))
                 (compose identity)
                 (extend second-argument)
+                (default-value #f)
                 (description
                  "Run @dfn{activation} code at boot time and upon
 @command{guix system reconfigure} completion.")))
@@ -803,6 +805,7 @@ directory."
                   (service-extension system-service-type etc-entry)))
                 (compose concatenate)
                 (extend append)
+                (default-value '())
                 (description "Populate the @file{/etc} directory.")))
 
 (define-deprecated (etc-service files)
@@ -869,6 +872,7 @@ executables, making them setuid and/or setgid.")))
                                           packages->profile-entry)))
                 (compose concatenate)
                 (extend append)
+                (default-value '())
                 (description
                  "This is the @dfn{system profile}, available as
 @file{/run/current-system/profile}.  It contains packages that the sysadmin
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index 8d428bf743..4a8cc87f0f 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -458,6 +458,7 @@ the /etc/skel directory for those."
                                           (const '(user-homes)))
                        (service-extension etc-service-type
                                           etc-files)))
+                (default-value #f)
                 (description
                  "Ensure the specified user accounts and groups exist, as well
 as each account home directory.")))