[no subject]

[Mathieu Othacehe]

branch: master
commit d0a2235ec7258fc363faf4e4bcef55f744e43c76
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Sep 15 11:11:09 2020 +0200

    metrics: Change 'builds-per-day computation.
    
    * src/cuirass/metrics.scm (db-builds-previous-day): Only take into account 
the
    builds that are created and processed during the previous day.
---
 src/cuirass/metrics.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/metrics.scm b/src/cuirass/metrics.scm
index ea1482a..cd4e901 100644
--- a/src/cuirass/metrics.scm
+++ b/src/cuirass/metrics.scm
@@ -66,7 +66,9 @@ FROM Evaluations WHERE specification = " spec
   "Return the builds count of the previous day."
   (with-db-worker-thread db
     (let ((rows (sqlite-exec db "SELECT COUNT(*) from Builds
-WHERE date(stoptime, 'unixepoch') = date('now', '-1 day');")))
+WHERE date(timestamp, 'unixepoch') = date('now', '-1 day') AND
+date(stoptime, 'unixepoch') = date('now', '-1 day');")))
+      (and=> (expect-one-row rows) (cut vector-ref <> 0)))))
       (and=> (expect-one-row rows) (cut vector-ref <> 0)))))
 
 (define (db-pending-builds _)