diff options
| -rw-r--r-- | nar-herder/mirror.scm | 7 | ||||
| -rw-r--r-- | nar-herder/recent-changes.scm | 7 |
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) |