aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-14 16:14:15 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-14 16:14:15 +0200
commit3942305eb1a078da9e87534cbd3601097bed36c3 (patch)
treeab060388aba2fcd5f154bed7caf276267b3fa078
parent66672a455cab26ba5bbd28fbe0ca28bae692dd88 (diff)
downloadpatches-3942305eb1a078da9e87534cbd3601097bed36c3.tar
patches-3942305eb1a078da9e87534cbd3601097bed36c3.tar.gz
guix system: reconfigure: Always use "/" as GRUB's target file system.
* guix/scripts/system.scm (perform-action) <reconfigure>: Wrap 'install-grub' call in 'false-if-exception'. Always use "/" as the target.
-rw-r--r--guix/scripts/system.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index be726e2125..10bf7e0c96 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -287,7 +287,8 @@ actions."
((reconfigure)
(mlet %store-monad ((% (switch-to-system os)))
(when grub?
- (unless (install-grub grub.cfg device target)
+ (unless (false-if-exception
+ (install-grub grub.cfg device "/"))
(leave (_ "failed to install GRUB on device '~a'~%")
device)))
(return #t)))