branch: master
commit 8d5b0cc5238afa2d72c9ef2f2e63fc971386986d
Author: Mathieu Othacehe <[email protected]>
AuthorDate: Wed Apr 28 17:55:47 2021 +0200
database: Fix pending builds cancel query.
* src/cuirass/database.scm (db-cancel-pending-builds!): Fix query.
---
src/cuirass/database.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 9c83925..c7b5704 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -968,7 +968,7 @@ DELETE FROM Checkouts WHERE evaluation=" eval-id ";")))
(exec-query/bind db "UPDATE Builds SET status="
(build-status canceled)
"WHERE evaluation=" eval-id
- "AND status = " (build-status started) ";")))
+ "AND status < 0;")))
(define (query->bind-arguments query-string)
"Return a list of keys to query strings by parsing QUERY-STRING."
