diff options
author | Christopher Baines <mail@cbaines.net> | 2022-10-11 10:30:42 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-10-11 10:30:42 +0100 |
commit | 05529c1757d0d5e2a81040b86b4a825c7d88fd9c (patch) | |
tree | 12927892a02baa53eb3e4bfbf36dc4dcc6d3ab5d /guix-build-coordinator/client-communication.scm | |
parent | 054658c5496a66d91a8b42f555298c745a7599f6 (diff) | |
download | build-coordinator-05529c1757d0d5e2a81040b86b4a825c7d88fd9c.tar build-coordinator-05529c1757d0d5e2a81040b86b4a825c7d88fd9c.tar.gz |
Support listing builds and including/excluding builds by relationship
This is to help cancel builds, but where you want to avoid builds that are
still needed by others.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index aa5d9f0..8d089bb 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -390,6 +390,10 @@ (or (and=> (assq-ref query-parameters 'priority_lt) string->number) 'unset) + #:relationship + (or (and=> (assq-ref query-parameters 'relationship) + string->symbol) + 'unset) #:after-id (assq-ref query-parameters 'after_id) #:limit @@ -612,6 +616,7 @@ (canceled 'unset) (priority-> 'unset) (priority-< 'unset) + (relationship 'unset) (after-id #f) (limit 1000)) (let ((query-parameters @@ -659,6 +664,9 @@ ,@(if (number? priority-<) (list (simple-format #f "priority_lt=~A" priority-<)) '()) + ,@(if (and relationship (not (eq? 'unset relationship))) + (list (simple-format #f "relationship=~A" relationship)) + '()) ,@(if after-id (list (string-append "after_id=" after-id)) '()) |