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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d282a31f52362b760b6f5021660494e8554bfbde
Author: Richard Sent <richard@freakingpenguin.com>
AuthorDate: Thu Mar 14 15:40:11 2024 -0400

    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>
---
 guix/scripts/system/reconfigure.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/system/reconfigure.scm 
b/guix/scripts/system/reconfigure.scm
index ff6242ffb4..9418060158 100644
--- a/guix/scripts/system/reconfigure.scm
+++ b/guix/scripts/system/reconfigure.scm
@@ -194,7 +194,8 @@ services as defined by OS."
                             (filter live-service-running live-services)))
            (to-start   (lset-difference eqv?
                                         (map shepherd-service-canonical-name
-                                             target-services)
+                                             (filter 
shepherd-service-auto-start?
+                                                     target-services))
                                         running))
            (service-files (map shepherd-service-file target-services)))
       (eval #~(parameterize ((current-warning-port (%make-void-port "w")))