[no subject]

[Ludovic Courtès]

branch: master
commit 8cd9986cbd27cbd97b379159f86fab45e96c4ebc
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 18 17:50:09 2023 +0200

    database: ‘db-get-first-build-failure’ really does that.
    
    There could potentially be cases where it would return a succeeding
    build.
    
    * src/cuirass/database.scm (db-get-first-build-failure):
    Add (status . failed) filter.
---
 src/cuirass/database.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 14e1427..d5d342b 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1048,6 +1048,7 @@ not actually failing or if that builds of that job have 
always failed."
                `((jobset . ,(build-specification-name build))
                  (job . ,(build-job-name build))
                  (oldevaluation . ,(build-evaluation-id build))
+                 (status . failed)
                  (weather . new)
                  (nr . 1)))
          ((first) first)