aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bffe/manage-builds.scm23
1 files 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")))