diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-16 09:32:58 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-16 09:32:58 +0000 |
| commit | cdbaf80e46b117cead7e7cdbd94177f61e7021fd (patch) | |
| tree | aea079c0eec6b76da4a236b9b7b23451bf0930f3 | |
| parent | 7ecdf46cbcb01eb5051a65f7f3ce7f3e71546ef3 (diff) | |
| download | bffe-cdbaf80e46b117cead7e7cdbd94177f61e7021fd.tar bffe-cdbaf80e46b117cead7e7cdbd94177f61e7021fd.tar.gz | |
Use the fibers variant of retry-on-error
As the one from (guix-build-coordinator utils) calls the core Guile sleep.
| -rw-r--r-- | bffe/manage-builds.scm | 4 | ||||
| -rw-r--r-- | bffe/server.scm | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 5520f31..16484c3 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -34,8 +34,8 @@ #:use-module (web client) #:use-module (web response) #:use-module (guix-build-coordinator client-communication) - #:use-module ((guix-build-coordinator utils) #:select (create-work-queue - retry-on-error)) + #:use-module ((guix-build-coordinator utils) #:select (create-work-queue)) + #:use-module ((guix-build-coordinator utils fibers) #:select (retry-on-error)) #:use-module (bffe server) #:export (build-from-guix-data-service build-from-guix-data-service-data-service-url diff --git a/bffe/server.scm b/bffe/server.scm index b8788c0..f372a9f 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -47,10 +47,9 @@ #:use-module (guix-data-service web util) #:use-module ((guix-build-coordinator utils) #:select (with-time-logging get-gc-metrics-updater - call-with-delay-logging - retry-on-error)) + call-with-delay-logging)) #:use-module ((guix-build-coordinator utils fibers) - #:select (run-server/patched)) + #:select (run-server/patched retry-on-error)) #:use-module (guix-build-coordinator client-communication) #:use-module (bffe config) #:use-module (bffe view util) |