diff options
author | Christopher Baines <mail@cbaines.net> | 2024-04-27 16:46:51 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-04-27 16:46:51 +0100 |
commit | 75f35b9a99d57fd01405b7c6e4e4473b851a1050 (patch) | |
tree | 796b214888cbd2310ecef114ad4ad4e8420577a2 | |
parent | e29073354cd59013a6e33110d1724e2a7b5e033c (diff) | |
download | nar-herder-75f35b9a99d57fd01405b7c6e4e4473b851a1050.tar nar-herder-75f35b9a99d57fd01405b7c6e4e4473b851a1050.tar.gz |
Remove metrics-registry argument from fold-nar-files
As it's unused.
-rw-r--r-- | nar-herder/storage.scm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 16f7025..53793ac 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -166,8 +166,7 @@ (unrecognised-files . ,(hash-map->list (lambda (key _) key) files-hash))))) -;; TODO Maybe remove the metrics-registry argument? -(define* (fold-nar-files database storage-root metrics-registry +(define* (fold-nar-files database storage-root proc init #:key stored?) (define stored-files-count 0) @@ -260,7 +259,6 @@ (fold-nar-files database storage-root - metrics-registry (const #f) #f #:stored? 'both))) @@ -281,7 +279,6 @@ (fold-nar-files database storage-root - metrics-registry (lambda (file _) (let* ((full-filename (string-append storage-root @@ -449,7 +446,6 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (fold-nar-files database storage-root - metrics-registry (lambda (nar result) (match result ((storage-size . removed-count) @@ -618,7 +614,6 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (fold-nar-files database storage-root - metrics-registry (lambda (file result) (log-msg 'DEBUG "considering " (assq-ref file 'url)) @@ -696,7 +691,6 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (fold-nar-files database storage-root - metrics-registry (lambda (nar _) (put-message channel (assq-ref nar 'url)) |