diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-03 10:38:42 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-03 10:38:42 +0000 |
| commit | 94a4bda7c7163ed5fd2e901e5f2306b6b680e615 (patch) | |
| tree | e17fb8f4679c70e386feb04616672c0b740fadcf /scripts/guix-build-coordinator.in | |
| parent | d90f395e814ee74e531cd7f6e5910bc4a095aa54 (diff) | |
| download | build-coordinator-94a4bda7c7163ed5fd2e901e5f2306b6b680e615.tar build-coordinator-94a4bda7c7163ed5fd2e901e5f2306b6b680e615.tar.gz | |
Enable matching tags by just the key
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 64e38ca..de8e789 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -136,7 +136,8 @@ (lambda (opt name arg result) (alist-cons 'tags (cons (match (string-split arg #\=) - ((key value) (cons key value))) + ((key value) (cons key value)) + ((key) key)) (or (assq-ref result 'tags) '())) (alist-delete 'tags result)))) @@ -144,7 +145,8 @@ (lambda (opt name arg result) (alist-cons 'not-tags (cons (match (string-split arg #\=) - ((key value) (cons key value))) + ((key value) (cons key value)) + ((key) key)) (or (assq-ref result 'not-tags) '())) (alist-delete 'not-tags result)))) @@ -181,7 +183,8 @@ (lambda (opt name arg result) (alist-cons 'tags (cons (match (string-split arg #\=) - ((key value) (cons key value))) + ((key value) (cons key value)) + ((key) key)) (or (assq-ref result 'tags) '())) (alist-delete 'tags result)))) @@ -189,7 +192,8 @@ (lambda (opt name arg result) (alist-cons 'not-tags (cons (match (string-split arg #\=) - ((key value) (cons key value))) + ((key value) (cons key value)) + ((key) key)) (or (assq-ref result 'not-tags) '())) (alist-delete 'not-tags result)))))) |