Message ID | 20210818173740.17581-1-iskarian@mgsn.dev |
---|---|
State | Accepted |
Headers | show |
Series | [bug#50111] cuirass: Allow filter-only searches. | expand |
Context | Check | Description |
---|---|---|
cbaines/applying patch | fail | View Laminar job |
cbaines/issue | success | View issue |
cbaines/applying patch | fail | View Laminar job |
cbaines/issue | success | View issue |
Hey,
Nice, applied as 082a477989cd6246a02c3e2ee661536ccc77cddb! I'll have to
update the Guix Cuirass package and deploy it on Berlin before we all
can enjoy this on https://ci.guix.gnu.org.
> I haven't tested this, of course, because I don't have a cuirass instance ;)
Note that running a small Cuirass instance using the dedicated Guix
service as described here[1] should be relatively easy if you want to
test further fixes :).
Thanks,
Mathieu
[1]: https://guix.gnu.org/manual/en/html_node/Continuous-Integration.html
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 0aa3f0b..2aa99a1 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Tatiana Sholokhova <tanja201396@gmail.com> ;;; Copyright © 2019, 2020 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; ;;; This file is part of Cuirass. ;;; @@ -1060,7 +1061,11 @@ DELETE FROM Checkouts WHERE evaluation=" eval-id ";"))) (if (assq key acc) acc (cons (cons key #f) acc))) - args '(#:spec #:system)))) + (if (or (assq-ref args #:query) + (null? (alist-delete #:query args))) + args + (cons '(#:query . "%") args)) + '(#:spec #:system)))) (define (db-get-build-products build-id) "Return the build products associated to the given BUILD-ID."