From 5a947e18414fe82ae4a04aea8fd174ee4d177d52 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Tue, 15 Sep 2020 09:47:04 +0200
Subject: metrics: Rename 'builds-previous-day to 'builds-per-day.

* src/cuirass/metrics.scm (%metrics): Rename 'builds-previous-day to
'builds-per-day.
(db-update-metrics): Adapt accordingly.
* src/cuirass/http.scm (url-handler): Ditto.
---
 src/cuirass/http.scm    | 2 +-
 src/cuirass/metrics.scm | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index b302aaf..61b1acc 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -611,7 +611,7 @@ Hydra format."
       (html-page
        "Global metrics"
        (let ((builds-per-day
-              (db-get-metrics-with-id 'builds-previous-day
+              (db-get-metrics-with-id 'builds-per-day
                                       #:limit 10))
              (avg-eval-durations
               (list
diff --git a/src/cuirass/metrics.scm b/src/cuirass/metrics.scm
index 4721cd5..3efe688 100644
--- a/src/cuirass/metrics.scm
+++ b/src/cuirass/metrics.scm
@@ -96,9 +96,9 @@ date('now', '-1 day'));")))
     (id 'average-eval-duration-per-spec)
     (compute-proc db-average-eval-duration-per-spec))
 
-   ;; Builds count over last 24 hours.
+   ;; Builds count per day.
    (metric
-    (id 'builds-previous-day)
+    (id 'builds-per-day)
     (compute-proc db-builds-previous-day)
     (field-proc db-previous-day-timestamp))))
 
@@ -186,7 +186,7 @@ timestamp) VALUES ("
   (define specifications
     (map (cut assq-ref <> #:name) (db-get-specifications)))
 
-  (db-update-metric 'builds-previous-day)
+  (db-update-metric 'builds-per-day)
 
   ;; Update specification related metrics.
   (for-each (lambda (spec)
-- 
cgit v1.2.3