diff options
-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) |