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"))))