aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-03-28 14:02:37 +0200
committerLudovic Courtès <ludo@gnu.org>2022-04-07 00:08:56 +0200
commit22ab90146665ad4e624421f297dd284f00ebe6ce (patch)
tree2f5a2b6d4e9432698397efa7aa13031d0ba48be0 /gnu
parent400c9ed3d779308e56038305d40cd93acb496180 (diff)
downloadguix-22ab90146665ad4e624421f297dd284f00ebe6ce.tar
guix-22ab90146665ad4e624421f297dd284f00ebe6ce.tar.gz
home: shepherd: Default to version 0.9.
* gnu/home/services/shepherd.scm (<home-shepherd-configuration>)[shepherd]: Default to SHEPHERD-0.9. (home-shepherd-configuration-file): Use 'start-in-the-background' when it is defined.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/home/services/shepherd.scm15
1 files changed, 8 insertions, 7 deletions
diff --git a/gnu/home/services/shepherd.scm b/gnu/home/services/shepherd.scm
index feff130259..012585fea4 100644
--- a/gnu/home/services/shepherd.scm
+++ b/gnu/home/services/shepherd.scm
@@ -51,7 +51,7 @@
home-shepherd-configuration make-home-shepherd-configuration
home-shepherd-configuration?
(shepherd home-shepherd-configuration-shepherd
- (default shepherd)) ; package
+ (default shepherd-0.9)) ; package
(auto-start? home-shepherd-configuration-auto-start?
(default #t))
(services home-shepherd-configuration-services
@@ -78,12 +78,13 @@ as shepherd package."
'#$files))
(action 'root 'daemonize)
(format #t "Starting services...~%")
- (for-each
- (lambda (service) (start service))
- '#$(append-map shepherd-service-provision
- (filter shepherd-service-auto-start?
- services)))
- (newline)))
+ (let ((services-to-start
+ '#$(append-map shepherd-service-provision
+ (filter shepherd-service-auto-start?
+ services))))
+ (if (defined? 'start-in-the-background)
+ (start-in-the-background services-to-start)
+ (for-each start services-to-start)))))
(scheme-file "shepherd.conf" config)))