diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-31 18:24:18 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-31 18:24:18 +0100 |
| commit | 2ac09243135c85d54e2ae2740d5c1aabe5c1ef06 (patch) | |
| tree | d8a5b9cccbf9f739e454ad146e2dfd538e38c915 /scripts | |
| parent | 4ff7ee1dc340cbb8cd1c49fc98619dd72650c5fe (diff) | |
| download | build-coordinator-2ac09243135c85d54e2ae2740d5c1aabe5c1ef06.tar build-coordinator-2ac09243135c85d54e2ae2740d5c1aabe5c1ef06.tar.gz | |
Support adding tags to builds
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index a0563e8..01752bd 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -103,13 +103,22 @@ (lambda (opt name arg result) (alist-cons 'derivation-substitute-urls (string-split arg #\space) - result))))) + result))) + (option '("tag") #t #f + (lambda (opt name arg result) + (alist-cons 'tags + (cons (match (string-split arg #\=) + ((key value) (cons key value))) + (or (assq-ref result 'tags) + '())) + (alist-delete 'tags result)))))) (define %build-option-defaults `((priority . 0) (ignore-if-build-for-derivation-exists . #f) (ignore-if-build-for-outputs-exists . #f) - (ensure-all-related-derivation-outputs-have-builds . #f))) + (ensure-all-related-derivation-outputs-have-builds . #f) + (tags . ()))) (define %service-options (list (option '("pid-file") #t #f @@ -344,7 +353,8 @@ processed?: ~A (assq-ref opts 'ignore-if-build-for-derivation-exists) (assq-ref opts 'ignore-if-build-for-outputs-exists) (assq-ref opts - 'ensure-all-related-derivation-outputs-have-builds)))) + 'ensure-all-related-derivation-outputs-have-builds) + (assq-ref opts 'tags)))) (let ((no-build-submitted-response (assoc-ref response "no-build-submitted"))) (if no-build-submitted-response |