diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-26 07:37:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-26 13:48:37 +0100 |
| commit | 99080d5fd5341cd229515a79170790f89c958c67 (patch) | |
| tree | 2662bef64ae1b271013543fe52d4de94b4a0e392 | |
| parent | e44f7a520e136733738dbebe6e3055e44bb46e7d (diff) | |
| download | build-coordinator-99080d5fd5341cd229515a79170790f89c958c67.tar build-coordinator-99080d5fd5341cd229515a79170790f89c958c67.tar.gz | |
Expose metrics
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 14 | ||||
| -rw-r--r-- | guix-build-coordinator/metrics.scm | 2 |
2 files changed, 15 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 8fba5c2..a561b18 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -40,6 +40,7 @@ #:use-module (guix build utils) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator datastore) + #:use-module (guix-build-coordinator metrics) #:use-module (guix-build-coordinator coordinator) #:export (http-agent-messaging-start-server @@ -125,6 +126,16 @@ port. Also, the port used can be changed by passing the --port option.\n" (lambda (port) (scm->json json port)))) +(define* (render-text text #:key (extra-headers '()) + (code 200)) + (list (build-response + #:code code + #:headers (append extra-headers + '((content-type . (text/plain)) + (vary . (accept))))) + (lambda (port) + (display text port)))) + (define (no-content) (list (build-response #:code 204) "")) @@ -253,6 +264,9 @@ port. Also, the port used can be changed by passing the --port option.\n" (render-json "access denied" #:code 403)))) + (('GET "metrics") + (render-text + (metrics datastore))) (_ (render-json "not-found" diff --git a/guix-build-coordinator/metrics.scm b/guix-build-coordinator/metrics.scm index 1f93689..00648d3 100644 --- a/guix-build-coordinator/metrics.scm +++ b/guix-build-coordinator/metrics.scm @@ -24,7 +24,7 @@ #:export (metrics)) (define namespace - "guix_build_coordinator") + "guixbuildcoordinator") (define (format-metric namespace metric labels-and-values value) (simple-format |