mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-28 21:20:29 +02:00
guix system: Gracefully handle 'install-grub' errors.
* guix/scripts/system.scm (install): Wrap 'install-grub' call in
'false-if-exception'. This is a followup to 641f9a2a.
This commit is contained in:
@@ -113,7 +113,7 @@ When GRUB? is true, install GRUB on DEVICE, using GRUB.CFG."
|
||||
(populate-root-file-system target)
|
||||
|
||||
(when grub?
|
||||
(unless (install-grub grub.cfg device target)
|
||||
(unless (false-if-exception (install-grub grub.cfg device target))
|
||||
(leave (_ "failed to install GRUB on device '~a'~%") device))))
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user