[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: database: Fix query->bind-arguments.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: database: Fix query->bind-arguments. |
Date: |
Wed, 11 Aug 2021 02:16:45 -0400 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: database: Fix query->bind-arguments.,
Mathieu Othacehe <=