diff options
| -rw-r--r-- | bffe/manage-builds.scm | 23 |
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"))) |