diff options
author | Christopher Baines <mail@cbaines.net> | 2022-06-24 12:58:21 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-06-24 12:58:21 +0100 |
commit | 45e95ddb8b9e716a8e4d530bda83cbee95861654 (patch) | |
tree | 6e1b308f0b55155e5b43832607059d23fe7004db /nar-herder/server.scm | |
parent | da3a2ae8ce06da18880e1c95d0990e31070e6c98 (diff) | |
download | nar-herder-45e95ddb8b9e716a8e4d530bda83cbee95861654.tar nar-herder-45e95ddb8b9e716a8e4d530bda83cbee95861654.tar.gz |
Increment request metrics for file requests
Diffstat (limited to 'nar-herder/server.scm')
-rw-r--r-- | nar-herder/server.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 4aa9867..522ff3f 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -274,6 +274,10 @@ ;; TODO Select intelligently (first narinfo-files))) + (increment-request-metric + "file" + (if selected-narinfo-file "200" "404")) + (if selected-narinfo-file (let* ((url (assq-ref selected-narinfo-file 'url)) @@ -298,8 +302,11 @@ (values (build-response #:code 404) "404"))) - (values (build-response #:code 404) - "404"))))) + (begin + (increment-request-metric "file" "404") + + (values (build-response #:code 404) + "404")))))) (('GET "recent-changes") (let ((query-parameters |