From 9bf4eea2fd6fd451598e6b5ac168515ada010276 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 4 Feb 2025 10:45:52 +0000 Subject: [PATCH] Name the temporary threads --- guix-data-service/jobs/load-new-guix-revision.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index bd70305..47c8486 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1324,6 +1324,8 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1" (let ((channel (make-channel))) (call-with-new-thread (lambda () + (set-thread-name "ds temp") + (parameterize ((current-read-waiter (lambda (port) (port-poll port "r"))) (current-write-waiter (lambda (port) (port-poll port "w"))))