nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix: Fix system reconfigure. 

This is a follow-up to 378daa8cb6.

* guix/scripts/system.scm (switch-to-system): Lower the script.
This commit is contained in:
Ricardo Wurmus 2018-06-21 16:54:06 +02:00
parent a34801ca68
commit 945449b40b
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/scripts/system.scm
View File

@ -3,6 +3,7 @@
;;; 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>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -353,7 +354,7 @@ bring the system down."
"Make a new generation of PROFILE pointing to the directory of OS, switch to "Make a new generation of PROFILE pointing to the directory of OS, switch to
it atomically, and then run OS's activation script." it atomically, and then run OS's activation script."
(mlet* %store-monad ((drv (operating-system-derivation os)) (mlet* %store-monad ((drv (operating-system-derivation os))
(script (operating-system-activation-script os))) (script (lower-object (operating-system-activation-script os))))
(let* ((system (derivation->output-path drv)) (let* ((system (derivation->output-path drv))
(number (+ 1 (generation-number profile))) (number (+ 1 (generation-number profile)))
(generation (generation-file-name profile number))) (generation (generation-file-name profile number)))