reconfigure: Skip starting new shepherd services with auto-start? #f

Fixes <https://bugs.gnu.org/68093>.

* guix/scripts/system/reconfigure.scm (upgrade-shepherd-services): Only add
new shepherd services with auto-start? #t to to-start list.

Change-Id: I268b921336fb1195ed76746eb6178889dbc258b4
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Richard Sent 2024-03-14 15:40:11 -04:00 committed by Ludovic Courtès
parent c8c5d12e45
commit d282a31f52
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -194,7 +194,8 @@ (define target-services
(filter live-service-running live-services))) (filter live-service-running live-services)))
(to-start (lset-difference eqv? (to-start (lset-difference eqv?
(map shepherd-service-canonical-name (map shepherd-service-canonical-name
target-services) (filter shepherd-service-auto-start?
target-services))
running)) running))
(service-files (map shepherd-service-file target-services))) (service-files (map shepherd-service-file target-services)))
(eval #~(parameterize ((current-warning-port (%make-void-port "w"))) (eval #~(parameterize ((current-warning-port (%make-void-port "w")))