From 75f35b9a99d57fd01405b7c6e4e4473b851a1050 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 27 Apr 2024 16:46:51 +0100
Subject: Remove metrics-registry argument from fold-nar-files

As it's unused.
---
 nar-herder/storage.scm | 8 +-------
 1 file changed, 1 insertion(+), 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))
-- 
cgit v1.2.3