ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

reconfigure: Run the effect scripts as separate processes.

Browse source 
Fixes <https://bugs.gnu.org/39301>.
Reported by strypsteen@posteo.net.

* guix/scripts/system/reconfigure.scm (switch-to-system)
(upgrade-shepherd-services, install-bootloader): Use 'system*' instead
of 'primitive-load'.
This commit is contained in:
Ludovic Courtès 2020-04-02 22:46:18 +02:00
parent a6850f6827
commit 5517750344
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -100,7 +100,7 @@ (define* (switch-to-system eval os #:optional profile)
"Using EVAL, a monadic procedure taking a single G-Expression as an argument,
create a new generation of PROFILE pointing to the directory of OS, switch to
it atomically, and run OS's activation script."
(eval #~(primitive-load #$(switch-system-program os profile))))
(eval #~(system* #$(switch-system-program os profile))))
;;;
@ -176,10 +176,10 @@ (define target-services
(map live-service-canonical-name
live-services)))
(service-files (map shepherd-service-file target-services)))
(eval #~(primitive-load #$(upgrade-services-program service-files
to-start
to-unload
to-restart)))))))
(eval #~(system* #$(upgrade-services-program service-files
to-start
to-unload
to-restart)))))))
;;;
@ -252,9 +252,9 @@ (define* (install-bootloader eval configuration bootcfg
(package (bootloader-package bootloader))
(device (bootloader-configuration-target configuration))
(bootcfg-file (bootloader-configuration-file bootloader)))
(eval #~(primitive-load #$(install-bootloader-program installer
package
bootcfg
bootcfg-file
device
target)))))
(eval #~(system* #$(install-bootloader-program installer
package
bootcfg
bootcfg-file
device
target)))))