From d752e9c4b0de43c55ca3cc72aa563066cbb476f3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 20 Sep 2020 15:39:43 +0100 Subject: Support fetching specific revisions from the Guix Data Service --- ...ix-build-coordinator-queue-builds-from-guix-data-service.in | 10 ++++++++++ 1 file changed, 10 insertions(+) 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) -- cgit v1.2.3