diff options
author | Christopher Baines <mail@cbaines.net> | 2022-07-07 18:23:53 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-07-07 18:23:53 +0100 |
commit | 49ea0deba5d985812d52836f4aa193408be698c8 (patch) | |
tree | f28a566aa552bcadc991c336c197fe6f6229ea7d /guix-build-coordinator/client-communication.scm | |
parent | cfd3f8d49aa16772b9b62cc24aff6c1e68b27f63 (diff) | |
download | build-coordinator-49ea0deba5d985812d52836f4aa193408be698c8.tar build-coordinator-49ea0deba5d985812d52836f4aa193408be698c8.tar.gz |
Support listing builds by priority
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 124caab..2453800 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -369,6 +369,14 @@ ((_ . val) (string=? val "true")) (#f 'unset)) + #:priority-> + (or (and=> (assq-ref query-parameters 'priority_gt) + string->number) + 'unset) + #:priority-< + (or (and=> (assq-ref query-parameters 'priority_lt) + string->number) + 'unset) #:after-id (assq-ref query-parameters 'after_id) #:limit @@ -580,6 +588,8 @@ (not-systems '()) (processed 'unset) (canceled 'unset) + (priority-> 'unset) + (priority-< 'unset) (after-id #f) (limit 1000)) (let ((query-parameters @@ -621,6 +631,12 @@ '("canceled=true") '("canceled=false")) '()) + ,@(if (number? priority->) + (list (simple-format #f "priority_gt=~A" priority->)) + '()) + ,@(if (number? priority-<) + (list (simple-format #f "priority_lt=~A" priority-<)) + '()) ,@(if after-id (list (string-append "after_id=" after-id)) '()) |