aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/utils
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/utils')
-rw-r--r--guix-build-coordinator/utils/fibers.scm11
1 files changed, 10 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm
index 938d06f..965948a 100644
--- a/guix-build-coordinator/utils/fibers.scm
+++ b/guix-build-coordinator/utils/fibers.scm
@@ -27,7 +27,8 @@
letpar&
with-fibers-timeout
- with-fibers-port-timeouts))
+ with-fibers-port-timeouts)
+ #:replace (retry-on-error))
(define %worker-thread-args
(make-parameter #f))
@@ -524,3 +525,11 @@ If already in the worker thread, call PROC immediately."
(make-port-write-timeout-error thunk port))))))
(no-fibers-wait port "w" write-timeout)))))
(thunk)))
+
+;; Use the fibers sleep
+(define (retry-on-error . args)
+ (apply
+ (@ (guix-build-coordinator utils) retry-on-error)
+ (append
+ args
+ (list #:sleep sleep))))