From 67d957a6524b92b94f09b0b8e2622eb7e1ca803c Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 14 Mar 2024 09:36:59 +0000
Subject: Support passing arguments which are used when fetching revisions

---
 bffe/manage-builds.scm | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm
index db9876a..f6f4952 100644
--- a/bffe/manage-builds.scm
+++ b/bffe/manage-builds.scm
@@ -64,7 +64,10 @@
                   (default #f))
   (data-service-build-server-id
    build-from-guix-data-service-data-service-build-server-id
-   (default #f)))
+   (default #f))
+  (revision-parameters
+   build-from-guix-data-service-revision-parameters
+   (default '())))
 
 (define-exception-type &guix-data-service-error &error
   make-guix-data-service-error
@@ -425,14 +428,16 @@
      (fibers-for-each
       (lambda (branch)
         (let* ((branch-revisions
-                (guix-data-service-request guix-data-service
-                                           (string-append
-                                            "/repository/"
-                                            (number->string repository-id)
-                                            "/branch/"
-                                            branch
-                                            ".json")
-                                           #:retry-times 3))
+                (guix-data-service-request
+                 guix-data-service
+                 (string-append
+                  "/repository/"
+                  (number->string repository-id)
+                  "/branch/"
+                  branch
+                  ".json")
+                 (build-from-guix-data-service-revision-parameters specification)
+                 #:retry-times 3))
                (unseen-revisions
                 (filter-map (lambda (entry)
                               (let ((commit (assoc-ref entry "commit-hash")))
-- 
cgit v1.2.3