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.
|
;; 'spawn-fiber' returns zero values but we need one.
|
||||||
*unspecified*))))
|
*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