diff mbox series

[bug#69801] reconfigure: Skip starting new shepherd services with auto-start? #f

Message ID 7370708f69a563b3f1a264c97b83d4e0e1707461.1710445211.git.richard@freakingpenguin.com
State New
Headers show
Series [bug#69801] reconfigure: Skip starting new shepherd services with auto-start? #f | expand

Commit Message

Richard Sent March 14, 2024, 7:40 p.m. UTC 
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
---
 guix/scripts/system/reconfigure.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)


base-commit: 7319b4d5286d31a9c6a889e81af72308efdaab41

Comments

Ludovic Courtès March 21, 2024, 1:56 p.m. UTC | #1 
Richard Sent <richard@freakingpenguin.com> skribis:

> 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

Applied, thanks!

Ludo'.
diff mbox series

Patch

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 @@  (define* (upgrade-shepherd-services eval 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")))