ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix system: Adjust 'upgrade-shepherd-services' to shepherd service change.

Browse source 
Fixes a regression introduced in 95f72dcd7a.

* guix/scripts/system/reconfigure.scm (upgrade-shepherd-services)[target-services]:
Add call to 'shepherd-configuration-services'.
This commit is contained in:
Ludovic Courtès 2021-01-30 18:21:58 +01:00
parent e629d72216
commit ede4a81947
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/scripts/system/reconfigure.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
@ -177,9 +177,10 @@ (define* (upgrade-shepherd-services eval os)
upgrade the Shepherd (PID 1) by unloading obsolete services and loading new upgrade the Shepherd (PID 1) by unloading obsolete services and loading new
services as defined by OS." services as defined by OS."
(define target-services (define target-services
(service-value (shepherd-configuration-services
(fold-services (operating-system-services os) (service-value
#:target-type shepherd-root-service-type))) (fold-services (operating-system-services os)
#:target-type shepherd-root-service-type))))
(mlet* %store-monad ((live-services (running-services eval))) (mlet* %store-monad ((live-services (running-services eval)))
(let*-values (((to-unload to-restart) (let*-values (((to-unload to-restart)