Name some more threads

2 files changed, 14 insertions, 0 deletions

diff --git a/nar-herder/mirror.scm b/nar-herder/mirror.scm
index 41e1c05..cb47d65 100644
--- a/nar-herder/mirror.scm
+++ b/nar-herder/mirror.scm
@@ -31,6 +31,8 @@
   #:use-module (logging logger)
   #:use-module (json)
   #:use-module (guix narinfo)
+  #:use-module ((guix build syscalls)
+                #:select (set-thread-name))
   #:use-module ((guix store) #:select (store-path-hash-part))
   #:use-module (nar-herder utils)
   #:use-module (nar-herder database)
@@ -165,6 +167,11 @@
 
   (call-with-new-thread
    (lambda ()
+     (catch 'system-error
+       (lambda ()
+         (set-thread-name "nh fetch changes"))
+       (const #t))
+
      ;; This will initialise the nar_files_total metric
      (get-nar-files database storage-root metrics-registry)
 
diff --git a/nar-herder/recent-changes.scm b/nar-herder/recent-changes.scm
index 14b729a..79d41a6 100644
--- a/nar-herder/recent-changes.scm
+++ b/nar-herder/recent-changes.scm
@@ -19,6 +19,8 @@
 (define-module (nar-herder recent-changes)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 threads)
+  #:use-module ((guix build syscalls)
+                #:select (set-thread-name))
   #:use-module (nar-herder database)
   #:export (start-recent-change-removal-and-database-dump-thread))
 
@@ -43,6 +45,11 @@
 
   (call-with-new-thread
    (lambda ()
+     (catch 'system-error
+       (lambda ()
+         (set-thread-name "nh recent change removal"))
+       (const #t))
+
      (while #t
        (with-exception-handler
            (lambda (exn)