aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-01-03 10:38:42 +0000
committerChristopher Baines <mail@cbaines.net>2021-01-03 10:38:42 +0000
commit94a4bda7c7163ed5fd2e901e5f2306b6b680e615 (patch)
treee17fb8f4679c70e386feb04616672c0b740fadcf /scripts
parentd90f395e814ee74e531cd7f6e5910bc4a095aa54 (diff)
downloadbuild-coordinator-94a4bda7c7163ed5fd2e901e5f2306b6b680e615.tar
build-coordinator-94a4bda7c7163ed5fd2e901e5f2306b6b680e615.tar.gz
Enable matching tags by just the key
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator.in12
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))))))