branch: master
commit 711981e4cb811245b3f807b7daf23d80670e5757
Author: Ludovic Courtès <[email protected]>
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 ()
