[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: guix: Fix system reconfigure.
From: |
Ricardo Wurmus |
Subject: |
01/01: guix: Fix system reconfigure. |
Date: |
Thu, 21 Jun 2018 10:55:34 -0400 (EDT) |
rekado pushed a commit to branch master
in repository guix.
commit 945449b40b4343f1829dfd54aa85f8568711c890
Author: Ricardo Wurmus <address@hidden>
Date: Thu Jun 21 16:54:06 2018 +0200
guix: Fix system reconfigure.
This is a follow-up to 378daa8cb677121e1893f9173af1db060720d6e4.
* guix/scripts/system.scm (switch-to-system): Lower the script.
---
guix/scripts/system.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a3f0163..14aedce 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2016 Alex Kost <address@hidden>
;;; Copyright © 2016, 2017, 2018 Chris Marusich <address@hidden>
;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
+;;; Copyright © 2018 Ricardo Wurmus <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -352,8 +353,8 @@ bring the system down."
#:optional (profile %system-profile))
"Make a new generation of PROFILE pointing to the directory of OS, switch to
it atomically, and then run OS's activation script."
- (mlet* %store-monad ((drv (operating-system-derivation os))
- (script (operating-system-activation-script os)))
+ (mlet* %store-monad ((drv (operating-system-derivation os))
+ (script (lower-object
(operating-system-activation-script os))))
(let* ((system (derivation->output-path drv))
(number (+ 1 (generation-number profile)))
(generation (generation-file-name profile number)))