~ruther/guix-local: guix system: Gracefully handle 'install-grub' errors.

cadf6cb4cf8b522c94e4594d1dfbe51d39ae16da — Ludovic Courtès 11 years ago f6ad09a

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.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M guix/scripts/system.scm

M guix/scripts/system.scm => guix/scripts/system.scm +1 -1

@@ 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))))