lint: archival: Gracefully handle network failures.
* guix/lint.scm (check-archival): Wrap re-throw in 'with-networking-fail-safe'.
This commit is contained in:
		
							parent
							
								
									c07c0acf19
								
							
						
					
					
						commit
						c2b2c8e9e7
					
				
					 1 changed files with 4 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -1122,7 +1122,10 @@ Heritage")
 | 
			
		|||
        ((key . args)
 | 
			
		||||
         (if (eq? key skip-key)
 | 
			
		||||
             '()
 | 
			
		||||
             (apply throw key args)))))))
 | 
			
		||||
             (with-networking-fail-safe
 | 
			
		||||
              (G_ "while connecting to Software Heritage")
 | 
			
		||||
              '()
 | 
			
		||||
              (apply throw key args))))))))
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue