diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 5ad0a4b..54a04ee 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -174,7 +174,11 @@ port. Also, the port used can be changed by passing the --port option.\n" (make-gauge-metric registry (string-append namespace "_build_allocation_plan_total") - #:labels '(agent_id)))) + #:labels '(agent_id))) + (unprocessed-hook-events-total + (make-gauge-metric registry + (string-append namespace + "_unprocessed_hook_events_total")))) (define (zero-metric-for-agents metric) (for-each (lambda (agent-details) (metric-set metric @@ -218,7 +222,10 @@ port. Also, the port used can be changed by passing the --port option.\n" count #:label-values `((agent_id . ,agent-id))))) - (datastore-count-build-allocation-plan-entries datastore))))) + (datastore-count-build-allocation-plan-entries datastore)) + + (metric-set unprocessed-hook-events-total + (datastore-count-unprocessed-hook-events datastore))))) (define (controller request method-and-path-components |