diff options
| -rw-r--r-- | bffe/manage-builds.scm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index b5d95bd..80d79e2 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -517,6 +517,12 @@ specification #:key processed-commits-file) + (define build-submitted-counter-metric + (or (metrics-registry-fetch-metric metrics-registry + "build_submitted_total") + (make-counter-metric metrics-registry + "build_submitted_total"))) + (define processed-commits-hash (make-hash-table)) @@ -548,8 +554,10 @@ (assoc-ref response "no-build-submitted"))) (if no-build-submitted-response (log-msg 'DEBUG log-prefix "skipped: " no-build-submitted-response) - (log-msg 'DEBUG log-prefix "build submitted as " - (assoc-ref response "build-submitted")))))) + (begin + (metric-increment build-submitted-counter-metric) + (log-msg 'DEBUG log-prefix "build submitted as " + (assoc-ref response "build-submitted"))))))) ;; The TTL Guix uses for transient failures fetching substitutes is 10 ;; minutes, so we need to retry for longer than that #:times 30 |