diff options
author | Christopher Baines <mail@cbaines.net> | 2020-09-20 15:39:43 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-09-20 15:39:43 +0100 |
commit | d752e9c4b0de43c55ca3cc72aa563066cbb476f3 (patch) | |
tree | 451df6f7d2459488a48793abeb39df4e76c5fe3d /scripts | |
parent | 6aa254f7359fa363949ca9cc555df554fcff8e29 (diff) | |
download | build-coordinator-d752e9c4b0de43c55ca3cc72aa563066cbb476f3.tar build-coordinator-d752e9c4b0de43c55ca3cc72aa563066cbb476f3.tar.gz |
Support fetching specific revisions from the Guix Data Service
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in index 91e7bd4..35a4c0a 100644 --- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in +++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in @@ -244,6 +244,16 @@ "error: you must specify at least one system to fetch builds for\n") (exit 1)) + (let ((arguments (assq-ref opts 'arguments))) + (unless (null? arguments) + (for-each (lambda (commit) + (submit-builds-for-revision (assq-ref opts 'coordinator) + guix-data-service + commit + systems-and-targets)) + arguments) + (exit 0))) + (when (file-exists? processed-commits-file) (call-with-input-file processed-commits-file (lambda (port) |