[no subject]

[Mathieu Othacehe]

branch: master
commit 37de70546bcc09f2e5f59463ed4fb1b4c3078c00
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Mar 8 07:48:15 2021 +0100

    Reset build timestamps on restart.
    
    * src/cuirass/database.scm (db-restart-build!, db-restart-evaluation!): 
Reset
    starttime and stoptime field.
---
 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 c882d57..2b86a23 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -816,14 +816,16 @@ UPDATE Builds SET stoptime =" now
   (with-db-worker-thread db
     (exec-query/bind db "UPDATE Builds SET status="
                      (build-status scheduled)
-                     "WHERE id=" build-id ";")))
+                     ", starttime = 0, stoptime = 0
+                     WHERE id=" build-id ";")))
 
 (define (db-restart-evaluation! eval-id)
   "Restart the evaluation with EVAL-ID id."
   (with-db-worker-thread db
     (exec-query/bind db "UPDATE Builds SET status="
                      (build-status scheduled)
-                     "WHERE evaluation=" eval-id ";")))
+                     ", starttime = 0, stoptime = 0
+                     WHERE evaluation=" eval-id ";")))
 
 (define (query->bind-arguments query-string)
   "Return a list of keys to query strings by parsing QUERY-STRING."