From cadf6cb4cf8b522c94e4594d1dfbe51d39ae16da Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 24 Jun 2014 22:11:12 +0200 Subject: 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(-) (limited to 'guix') diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 7a4a2a6a06..c71ad4cbe9 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -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)))) -- cgit v1.2.3