mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
base: Keep going when a Git error is raised.
* src/cuirass/base.scm (process-specs): Catch 'git-error around call to 'process'.
This commit is contained in:
parent
d0ed3341d7
commit
27f1463410
1 changed files with 10 additions and 1 deletions
|
@ -734,4 +734,13 @@ started)."
|
|||
;; 'spawn-fiber' returns zero values but we need one.
|
||||
*unspecified*))))
|
||||
|
||||
(for-each process jobspecs))
|
||||
(for-each (lambda (spec)
|
||||
;; Catch Git errors, which might be transient, and keep going.
|
||||
(catch 'git-error
|
||||
(lambda ()
|
||||
(process spec))
|
||||
(lambda (key error)
|
||||
(log-message "Git error while fetching inputs of '~a': ~s~%"
|
||||
(assq-ref spec #:name)
|
||||
(git-error-message error)))))
|
||||
jobspecs))
|
||||
|
|
Loading…
Reference in a new issue