branch master updated: database: Fix "db-update-build-status!".

[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 54244e6  database: Fix "db-update-build-status!".
54244e6 is described below

commit 54244e6e975add729eba150bbdc459198588b122
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 1 12:30:38 2021 +0100

    database: Fix "db-update-build-status!".
    
    * src/cuirass/database.scm (db-update-build-status): Only consider 
evaluations
    that happened before the current one. This is useful when updating the build
    status of old evaluations.
---
 src/cuirass/database.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 257fe7e..f89e634 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -797,14 +797,16 @@ log file for DRV."
 UPDATE Builds SET stoptime =" now
 ", status =" status
 ", last_status =
-(SELECT Builds.status FROM (SELECT job_name, specification FROM Builds
+(SELECT Builds.status FROM
+(SELECT evaluation, job_name, specification FROM Builds
 INNER JOIN Evaluations ON Builds.evaluation = Evaluations.id WHERE
 derivation = " drv ") AS cur, Builds INNER JOIN
 Evaluations ON Builds.evaluation = Evaluations.id
 WHERE cur.job_name = Builds.job_name AND
 cur.specification = Evaluations.specification AND
+Builds.evaluation < cur.evaluation AND
 Builds.status >= 0
-ORDER BY evaluation DESC LIMIT 1)
+ORDER BY Builds.evaluation DESC LIMIT 1)
 WHERE derivation =" drv
 " AND status != " status ";")))
             (when (positive? rows)