From 8d1c783b721b9c2048f527972a4e74349c9bcd25 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 18 Jun 2025 18:00:07 +0100
Subject: Use #:delay-seconds rather than #:delay

To match changes in the build coordinator.
---
 guix-qa-frontpage/database.scm          | 2 +-
 guix-qa-frontpage/guix-data-service.scm | 2 +-
 guix-qa-frontpage/manage-builds.scm     | 8 ++++----
 guix-qa-frontpage/mumi.scm              | 2 +-
 guix-qa-frontpage/patchwork.scm         | 4 ++--
 5 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm
index 5e74183..730a123 100644
--- a/guix-qa-frontpage/database.scm
+++ b/guix-qa-frontpage/database.scm
@@ -254,7 +254,7 @@ PRAGMA optimize;")))
          db
          (database-file database)))))
    #:times 5
-   #:delay 5))
+   #:delay-seconds 5))
 
 (define (database-spawn-fibers database)
   ;; Queue messages to the writer thread, so that they're handled in a first
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm
index abefd77..758e58f 100644
--- a/guix-qa-frontpage/guix-data-service.scm
+++ b/guix-qa-frontpage/guix-data-service.scm
@@ -233,7 +233,7 @@
           make-request
           #:timeout 120))
        #:times retry-times
-       #:delay retry-delay
+       #:delay-seconds retry-delay
        #:ignore (lambda (exn)
                   (and (guix-data-service-error? exn)
                        (< (guix-data-service-error-response-code exn)
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index f5d71ce..c398e8c 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -306,7 +306,7 @@
                                (assoc-ref data "derivation_changes"))))
                        #:no-retry guix-data-service-error-invalid-query?
                        #:times 2
-                       #:delay 15))
+                       #:delay-seconds 15))
                     %systems-to-submit-builds-for))
              #:unwind? #t)))
 
@@ -538,7 +538,7 @@
    ;; The TTL Guix uses for transient failures fetching substitutes is 10
    ;; minutes, so we need to retry for longer than that
    #:times 30
-   #:delay 30))
+   #:delay-seconds 30))
 
 (define* (cancel-builds build-coordinator
                         #:key build-ids-to-keep-set
@@ -619,7 +619,7 @@
                (simple-format (current-error-port)
                               "canceled ~A\n" uuid))
              #:times 6
-             #:delay 15
+             #:delay-seconds 15
              #:ignore (lambda (exn)
                         ;; TODO Improve the coordinator exceptions
                         (and (exception-with-message? exn)
@@ -808,7 +808,7 @@
         #:not-tags `(("revision" . ,target-commit))
         #:build-ids-to-keep-set build-ids-to-keep-set))
      #:times 3
-     #:delay 2)
+     #:delay-seconds 2)
 
     (if (or (not build-limit)
             (< builds-to-submit-count
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm
index 6cfa0d7..53e98ab 100644
--- a/guix-qa-frontpage/mumi.scm
+++ b/guix-qa-frontpage/mumi.scm
@@ -178,7 +178,7 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates."
                      #:port port))
                   #:cache connection-cache))
                #:times 1
-               #:delay 0)))
+               #:delay-seconds 0)))
 
          (for-each
           (lambda (res)
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm
index 2126e5c..5ab0deb 100644
--- a/guix-qa-frontpage/patchwork.scm
+++ b/guix-qa-frontpage/patchwork.scm
@@ -90,7 +90,7 @@
                           #:decode-body? #f
                           #:streaming? #t))
           #:times 2
-          #:delay 3)))
+          #:delay-seconds 3)))
 
     (values
      (let ((json (json->scm body)))
@@ -314,7 +314,7 @@
                                               (list
                                                (map first series-by-issue-number))))
                    #:times 1
-                   #:delay 5)))
+                   #:delay-seconds 5)))
 
             (loop
              next-page-uri
-- 
cgit v1.2.3