diff options
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 |