diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-07-14 16:14:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-14 16:14:15 +0200 |
| commit | 3942305eb1a078da9e87534cbd3601097bed36c3 (patch) | |
| tree | ab060388aba2fcd5f154bed7caf276267b3fa078 /guix | |
| parent | 66672a455cab26ba5bbd28fbe0ca28bae692dd88 (diff) | |
| download | gnu-guix-3942305eb1a078da9e87534cbd3601097bed36c3.tar gnu-guix-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.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/system.scm | 3 |
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))) |