diff options
| -rw-r--r-- | nar-herder/storage.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 75e460f..2f165bc 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -31,6 +31,8 @@ #:use-module (json) #:use-module ((guix build utils) #:select (dump-port mkdir-p)) #:use-module ((guix store) #:select (store-path-hash-part)) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix progress) #:use-module (nar-herder utils) #:use-module (nar-herder database) @@ -330,6 +332,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "nh remove")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) @@ -466,6 +473,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "nh mirror")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) |