[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Mathieu Othacehe |
Date: |
Mon, 8 Mar 2021 01:51:45 -0500 (EST) |
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."