[no subject]

[Mathieu Othacehe]

branch: master
commit ca37049a70aaad59a1ed8e21db0de73f22b92622
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Dec 17 15:55:37 2021 +0100

    database: Record the starttime and stoptime of failed dependency builds.
    
    Proposed by Leo Famulari here: <https://issues.guix.gnu.org/52487>.
    
    * src/cuirass/database.scm (db-update-failed-builds!): Record the starttime
    and stopttime.
---
 src/cuirass/database.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index bd5a6e6..4982e2d 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -861,9 +861,13 @@ WHERE Builds.status = " (build-status failed-dependency)
 (define (db-update-failed-builds!)
   "Update the build status of the scheduled builds with failed dependencies to
 failed-dependency."
+  (define now
+    (time-second (current-time time-utc)))
+
   (with-db-worker-thread db
     (exec-query/bind db "
 UPDATE Builds SET status = " (build-status failed-dependency)
+", starttime = " now ", stoptime = " now
 " FROM (SELECT Builds.id, count(dep.id) as deps FROM Builds
 LEFT JOIN BuildDependencies as bd ON bd.source = Builds.id
 INNER JOIN Builds AS dep ON bd.target = dep.id AND dep.status > 0