diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-14 09:36:59 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-14 09:36:59 +0000 |
| commit | 67d957a6524b92b94f09b0b8e2622eb7e1ca803c (patch) | |
| tree | df3252d0c605d1dba5e3f9dfc9a2ece0656e363a | |
| parent | 5dfcfdf12676c0c509c8aa6af701c13799e9b0fc (diff) | |
| download | bffe-67d957a6524b92b94f09b0b8e2622eb7e1ca803c.tar bffe-67d957a6524b92b94f09b0b8e2622eb7e1ca803c.tar.gz | |
Support passing arguments which are used when fetching revisions
| -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"))) |