Get set-thread-name from knots

guix-data-service/jobs/load-new-guix-revision.scm

@@ -59,7 +59,7 @@
   #:use-module (guix serialization)
   #:use-module (guix build utils)
   #:use-module ((guix build syscalls)
-                #:select (set-thread-name free-disk-space))
+                #:select (free-disk-space))
   #:use-module (guix-data-service jobs)
   #:use-module (guix-data-service config)
   #:use-module (guix-data-service database)

guix-data-service/poll-git-repository.scm

@@ -23,11 +23,10 @@
   #:use-module (ice-9 threads)
   #:use-module (squee)
   #:use-module (knots)
+  #:use-module ((knots thread-pool) #:select (set-thread-name))
   #:use-module (git)
   #:use-module (guix git)
   #:use-module (guix channels)
-  #:use-module ((guix build syscalls)
-                #:select (set-thread-name))
   #:use-module (guix-data-service database)
   #:use-module (guix-data-service model git-repository)
   #:use-module (guix-data-service model git-branch)

guix-data-service/substitutes.scm

@@ -25,9 +25,8 @@
   #:use-module (fibers channels)
   #:use-module (guix substitutes)
   #:use-module (guix narinfo)
-  #:use-module ((guix build syscalls)
-                #:select (set-thread-name))
   #:use-module (knots)
+  #:use-module (knots thread-pool)
   #:use-module (guix-data-service utils)
   #:use-module (guix-data-service database)
   #:use-module (guix-data-service model build)

guix-data-service/utils.scm

@@ -30,8 +30,6 @@
   #:use-module (ice-9 ports internal)
   #:use-module (ice-9 suspendable-ports)
   #:use-module (lzlib)
-  #:use-module ((guix build syscalls)
-                #:select (set-thread-name))
   #:use-module (fibers)
   #:use-module (fibers channels)
   #:use-module (fibers operations)

guix-data-service/web/server.scm

@@ -33,9 +33,8 @@
   #:use-module (fibers conditions)
   #:use-module (knots)
   #:use-module (knots web-server)
+  #:use-module (knots thread-pool)
   #:use-module (knots resource-pool)
-  #:use-module ((guix build syscalls)
-                #:select (set-thread-name))
   #:use-module (prometheus)
   #:use-module (guix-data-service utils)
   #:use-module (guix-data-service database)