diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-01-05 10:59:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-01-08 23:14:46 +0100 |
| commit | 1964531ce5365d6744e3909960e9d608be624228 (patch) | |
| tree | 9314863dd388f25cae15354d4af75c2315d8a474 | |
| parent | 477d4f7d241165b5a5fd315c27efd7803fad4a04 (diff) | |
home: services: shepherd: Use the 0.10.x interface.
* gnu/home/services/shepherd.scm (home-shepherd-configuration-file):
Pass ‘register-services’ a list. Call ‘start-in-the-background’
unconditionally.
Change-Id: Id7ba005949653a9ac065c47eddb425df4f4792aa
| -rw-r--r-- | gnu/home/services/shepherd.scm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/gnu/home/services/shepherd.scm b/gnu/home/services/shepherd.scm index bd068c37fc..176f4575cb 100644 --- a/gnu/home/services/shepherd.scm +++ b/gnu/home/services/shepherd.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2021, 2023 Andrew Tropin <andrew@trop.in> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> +;;; Copyright © 2024 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -75,11 +76,8 @@ as shepherd package." #~(begin (use-modules (srfi srfi-34) (system repl error-handling)) - (apply - register-services - (map - (lambda (file) (load file)) - '#$files)) + + (register-services (map load '#$files)) #$@(if daemonize? `((action 'root 'daemonize)) @@ -90,9 +88,7 @@ as shepherd package." '#$(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)) + (start-in-the-background services-to-start) (redirect-port (open-input-file "/dev/null") (current-input-port))))) |