From cdbaf80e46b117cead7e7cdbd94177f61e7021fd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 16 Mar 2024 09:32:58 +0000 Subject: Use the fibers variant of retry-on-error As the one from (guix-build-coordinator utils) calls the core Guile sleep. --- bffe/manage-builds.scm | 4 ++-- 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) -- cgit v1.2.3