diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-16 22:27:56 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-16 22:27:56 +0000 |
| commit | 14e18eed98d1836662d8787d08f7a37cf8c2f69d (patch) | |
| tree | ffc52ef16a451e900b6f11c28a3ccb0e613179e9 /guix-build-coordinator | |
| parent | d802b817d81e2ea8c9f30664acd7b3b37b16f7c5 (diff) | |
| download | build-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.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 2 |
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)))) |