diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-qa-frontpage.in | 37 |
1 files changed, 36 insertions, 1 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 471df6f..96028f1 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -110,7 +110,16 @@ (lambda (opt name arg result) (alist-cons 'priority (string->number arg) - result))))) + result))) + (option '("system") #t #f + (lambda (opt name arg result) + (alist-cons 'systems + (cons arg + (or (assq-ref result + 'systems) + '())) + (alist-delete 'systems + result)))))) (define %submit-build-default-options `((database . ,(string-append (getcwd) @@ -158,6 +167,32 @@ 550 350))))))) + (("submit-branch-builds" branch-name rest ...) + (parameterize + ((%git-repository-location (string-append (getcwd) "/guix.git"))) + (let* ((opts (parse-options + %submit-build-options + %submit-build-default-options + rest)) + (metrics-registry (make-metrics-registry + #:namespace + "guixqafrontpage")) + (database + (setup-database (assq-ref opts 'database) + metrics-registry))) + + (submit-builds-for-branch + database + "http://127.0.0.1:8746" + "https://data.qa.guix.gnu.org" + branch-name + #:priority + (or (const (assq-ref opts 'priority)) + default-branch-priority-for-change) + #:systems + (or (assq-ref opts 'systems) + %systems-to-submit-builds-for))))) + ((args ...) (let ((opts (parse-options %options |