branch master updated: database: Fix query->bind-arguments.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new e95e723  database: Fix query->bind-arguments.
e95e723 is described below

commit e95e723f3c4fddc4a2fa7a9ac58230c262470c76
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Aug 11 08:14:57 2021 +0200

    database: Fix query->bind-arguments.
    
    Fixes: <https://issues.guix.gnu.org/49769>.
    
    * src/cuirass/database.scm (query->bind-arguments): Properly ignore invalid
    arguments.
---
 src/cuirass/database.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 6b51165..0aa3f0b 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1036,7 +1036,7 @@ DELETE FROM Checkouts WHERE evaluation=" eval-id ";")))
       ("failed-dependency" . ,(build-status failed-dependency))
       ("failed-other" . ,(build-status failed-other))
       ("canceled" . ,(build-status canceled))))
-  (let ((args (map
+  (let ((args (filter-map
                (lambda (token)
                  (match (string-split token #\:)
                    (("system" system)
@@ -1045,7 +1045,7 @@ DELETE FROM Checkouts WHERE evaluation=" eval-id ";")))
                     `(#:spec . ,spec))
                    (("status" status)
                     `(#:status . ,(assoc-ref status-values status)))
-                   ((_ invalid) '())    ; ignore
+                   ((_ invalid) #f)    ; ignore
                    ((query)
                     ;; Remove any '%' that could make the search too slow and
                     ;; add one at the end of the query.