diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-21 14:48:08 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-21 14:48:08 +0000 |
| commit | 9128f96ced76bd01c87fb766c3b30dc3b2100d42 (patch) | |
| tree | d1c6ae989f7a29f23000207aff43e4ab4359ed6a /guix-build-coordinator/client-communication.scm | |
| parent | fd3eea0dc17084cd210e0d0ae25f98f65a0cc66e (diff) | |
| download | build-coordinator-9128f96ced76bd01c87fb766c3b30dc3b2100d42.tar build-coordinator-9128f96ced76bd01c87fb766c3b30dc3b2100d42.tar.gz | |
Fix processing of boolean query parameters when listing builds
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index b471c22..ff6f9f5 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -260,15 +260,15 @@ #f))) query-parameters) #:processed - (or (and=> (assq-ref query-parameters 'processed) - (lambda (val) - (string=? val "true"))) - 'unset) + (match (assq 'processed query-parameters) + ((_ . val) + (string=? val "true")) + (#f 'unset)) #:canceled - (or (and=> (assq-ref query-parameters 'canceled) - (lambda (val) - (string=? val "true"))) - 'unset) + (match (assq 'canceled query-parameters) + ((_ . val) + (string=? val "true")) + (#f 'unset)) #:after-id (assq-ref query-parameters 'after_id) #:limit |