Instrument write response exceptions

1 files changed, 8 insertions, 0 deletions

diff --git a/nar-herder/server.scm b/nar-herder/server.scm
index a22d507..7e7ef64 100644
--- a/nar-herder/server.scm
+++ b/nar-herder/server.scm
@@ -26,6 +26,7 @@
   #:use-module (ice-9 iconv)
   #:use-module (ice-9 match)
   #:use-module (ice-9 threads)
+  #:use-module (ice-9 exceptions)
   #:use-module (ice-9 binary-ports)
   #:use-module (rnrs bytevectors)
   #:use-module (web uri)
@@ -631,6 +632,9 @@
      #:namespace
      "narherder"))
 
+  (define write-response-exception-metric
+    (make-gauge-metric metrics-registry "write_response_exception_count"))
+
   (and=>
    (assq-ref opts 'mirror)
    (lambda (mirror)
@@ -944,6 +948,10 @@
               maybe-trigger-creation-of-cached-nars
               #:cached-compression-nar-requested-hook
               cached-compression-nar-requested-hook)
+             #:write-response-exception-handler
+             (lambda (exn request)
+               (metric-increment write-response-exception-metric)
+               (default-write-response-exception-handler exn request))
              #:host (assq-ref opts 'host)
              #:port (assq-ref opts 'port))