diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-14 10:09:27 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-14 10:09:27 +0000 |
| commit | 71507b3f0d9d5b3cb4fb4b35b967792dc5aa4607 (patch) | |
| tree | ae3860844fda69c95ad090848c1522e03d57b04d | |
| parent | 731b73587f1d7372bce0b03d891c9ae1dd911bfd (diff) | |
| download | nar-herder-71507b3f0d9d5b3cb4fb4b35b967792dc5aa4607.tar nar-herder-71507b3f0d9d5b3cb4fb4b35b967792dc5aa4607.tar.gz | |
Instrument the recent changes limit
This doesn't change, but it's useful to have the value as a metric.
| -rw-r--r-- | nar-herder/server.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 9e4c80a..a978ce2 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -611,6 +611,10 @@ #f) (download-database))))) + (let ((recent-changes-metric + (make-gauge-metric metrics-registry "recent_changes_limit"))) + (metric-set recent-changes-metric (assq-ref opts 'recent-changes-limit))) + (let* ((database (setup-database (assq-ref opts 'database) metrics-registry)) (canonical-storage (and=> (assq-ref opts 'storage) |