diff options
| -rw-r--r-- | src/cuirass/http.scm | 2 | ||||
| -rw-r--r-- | src/cuirass/metrics.scm | 6 |
2 files changed, 4 insertions, 4 deletions
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) |