From cadf6cb4cf8b522c94e4594d1dfbe51d39ae16da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 24 Jun 2014 22:11:12 +0200
Subject: [PATCH] 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.
---
guix/scripts/system.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 7a4a2a6a06a..c71ad4cbe90 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -113,7 +113,7 @@ (define to-copy
(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))))
--
GitLab