From: "Ludovic Courtès" <ludo@gnu.org>
To: 68258@debbugs.gnu.org
Cc: "Ludovic Courtès" <ludo@gnu.org>
Subject: [bug#68258] [PATCH 6/7] home: services: shepherd: Use the 0.10.x interface.
Date: Fri, 5 Jan 2024 11:59:33 +0100 [thread overview]
Message-ID: <a0f186a8cc5662b4233d072927cf874ec12ee636.1704451578.git.ludo@gnu.org> (raw)
In-Reply-To: <cover.1704451578.git.ludo@gnu.org>
* gnu/home/services/shepherd.scm (home-shepherd-configuration-file):
Pass ‘register-services’ a list. Call ‘start-in-the-background’
unconditionally.
Change-Id: Id7ba005949653a9ac065c47eddb425df4f4792aa
---
gnu/home/services/shepherd.scm | 12 ++++--------
1 file 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 @@ (define (home-shepherd-configuration-file config)
#~(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 @@ (define (home-shepherd-configuration-file config)
'#$(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)))))
--
2.41.0
next prev parent reply other threads:[~2024-01-05 11:01 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-01-05 10:59 [bug#68258] [PATCH 0/7] Upgrading Shepherd and moving the Hurd to 0.10.x Ludovic Courtès
2024-01-05 10:56 ` [bug#68258] [PATCH 1/7] services: openssh: Add dependency on ‘networking’ Ludovic Courtès
2024-01-05 18:00 ` Janneke Nieuwenhuizen
2024-01-05 10:59 ` [bug#68258] [PATCH 2/7] tests: childhurd: Increase SSH connection timeout Ludovic Courtès
2024-01-05 10:59 ` [bug#68258] [PATCH 3/7] DRAFT gnu: shepherd: Update to 0.10.3 Ludovic Courtès
2024-01-05 10:59 ` [bug#68258] [PATCH 4/7] system: hurd: Use the Shepherd 0.10.x Ludovic Courtès
2024-01-05 10:59 ` [bug#68258] [PATCH 5/7] services: shepherd: Use the 0.10.x GOOPS-less interface Ludovic Courtès
2024-01-05 10:59 ` Ludovic Courtès [this message]
2024-01-05 10:59 ` [bug#68258] [PATCH 7/7] services: bitlbee: Use ‘make-inetd-constructor’ unconditionally Ludovic Courtès
2024-01-05 17:59 ` [bug#68258] [PATCH 0/7] Upgrading Shepherd and moving the Hurd to 0.10.x Janneke Nieuwenhuizen
2024-01-06 16:15 ` Janneke Nieuwenhuizen
2024-01-06 16:32 ` Janneke Nieuwenhuizen
2024-01-07 11:12 ` Ludovic Courtès
2024-01-07 14:54 ` Janneke Nieuwenhuizen
2024-01-08 23:54 ` bug#68258: " Ludovic Courtès
2024-01-07 11:14 ` [bug#68258] " Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=a0f186a8cc5662b4233d072927cf874ec12ee636.1704451578.git.ludo@gnu.org \
--to=ludo@gnu.org \
--cc=68258@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.