[no subject]

[Ludovic Courtès]

branch: master
commit 711981e4cb811245b3f807b7daf23d80670e5757
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Oct 15 16:14:43 2023 +0200

    base: Set the checkout thread’s name.
    
    This is meant as a debugging aid.
    
    * src/cuirass/base.scm (channel-update-service): Add call to
    ‘set-thread-name’ within ‘non-blocking’.
---
 src/cuirass/base.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 50cb57e..60ff046 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -37,6 +37,7 @@
   #:use-module (guix store)
   #:use-module (guix ui)
   #:use-module (guix git)
+  #:autoload   (guix build syscalls) (set-thread-name)
   #:use-module (zlib)
   #:use-module (git)
   #:use-module (ice-9 binary-ports)
@@ -526,6 +527,7 @@ to update Git checkouts, effectively serializing all Git 
operations."
             (return #f))
         (lambda ()
           (non-blocking
+           (set-thread-name "git-checkout")
            (latest-channel-instances* store channels))))))
 
   (lambda ()