aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-03-16 22:27:56 +0000
committerChristopher Baines <mail@cbaines.net>2024-03-16 22:27:56 +0000
commit14e18eed98d1836662d8787d08f7a37cf8c2f69d (patch)
treeffc52ef16a451e900b6f11c28a3ccb0e613179e9 /guix-build-coordinator
parentd802b817d81e2ea8c9f30664acd7b3b37b16f7c5 (diff)
downloadbuild-coordinator-14e18eed98d1836662d8787d08f7a37cf8c2f69d.tar
build-coordinator-14e18eed98d1836662d8787d08f7a37cf8c2f69d.tar.gz
Fix the sleep-impl argument to retry-on-error
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/utils.scm2
-rw-r--r--guix-build-coordinator/utils/fibers.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 74b4539..053730b 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -633,7 +633,7 @@ References: ~a~%"
compressed-files))))
(define* (retry-on-error f #:key times delay ignore no-retry error-hook
- sleep-impl)
+ (sleep-impl sleep))
(let loop ((attempt 1))
(match (with-exception-handler
(lambda (exn)
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm
index 965948a..a89f9ab 100644
--- a/guix-build-coordinator/utils/fibers.scm
+++ b/guix-build-coordinator/utils/fibers.scm
@@ -532,4 +532,4 @@ If already in the worker thread, call PROC immediately."
(@ (guix-build-coordinator utils) retry-on-error)
(append
args
- (list #:sleep sleep))))
+ (list #:sleep-impl sleep))))