summary refs log tree commit diff
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2023-05-16 17:53:36 +0400
committerAndrew Tropin <andrew@trop.in>2023-05-16 19:45:27 +0400
commit66ecffbeba0685ff2f1071db8aeb2393986afb97 (patch)
treec432f89a8d37ef64e9a217b8d146f6ae7a28cfc9
parent8659f5e3ee1872da0a853ca6f839eb6f90e10c3d (diff)
downloadguix-66ecffbeba0685ff2f1071db8aeb2393986afb97.tar.gz
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.
-rw-r--r--gnu/services.scm4
-rw-r--r--gnu/system/shadow.scm1
2 files changed, 5 insertions, 0 deletions
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.")))