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:
		
							parent
							
								
									f6ad09ae5a
								
							
						
					
					
						commit
						cadf6cb4cf
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -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 a new issue