aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-06-21 16:54:06 +0200
committerRicardo Wurmus <rekado@elephly.net>2018-06-21 16:54:06 +0200
commit945449b40b4343f1829dfd54aa85f8568711c890 (patch)
treee3283da616d1cc1a0612341d89dc9e5993290876
parenta34801ca685df32e1df50597a96a578acb66cfb0 (diff)
downloadguix-945449b40b4343f1829dfd54aa85f8568711c890.tar
guix-945449b40b4343f1829dfd54aa85f8568711c890.tar.gz
guix: Fix system reconfigure.
This is a follow-up to 378daa8cb677121e1893f9173af1db060720d6e4. * guix/scripts/system.scm (switch-to-system): Lower the script.
-rw-r--r--guix/scripts/system.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a3f01636e6..14aedceac1 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017, 2018 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
+;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; 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)))