cbaines pushed a commit to branch trunk
in repository data-service.
commit 241d49136f9a8fada87ee2a53920fe3506e81607
Author: Christopher Baines <[email protected]>
AuthorDate: Mon Mar 10 21:48:02 2025 +0000
Get set-thread-name from knots
---
guix-data-service/jobs/load-new-guix-revision.scm | 2 +-
guix-data-service/poll-git-repository.scm | 3 +--
guix-data-service/substitutes.scm | 3 +--
guix-data-service/utils.scm | 2 --
guix-data-service/web/server.scm | 3 +--
5 files changed, 4 insertions(+), 9 deletions(-)
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm
b/guix-data-service/jobs/load-new-guix-revision.scm
index cbd6554..1534e05 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/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)
diff --git a/guix-data-service/poll-git-repository.scm
b/guix-data-service/poll-git-repository.scm
index d242139..97154ec 100644
--- a/guix-data-service/poll-git-repository.scm
+++ b/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)
diff --git a/guix-data-service/substitutes.scm
b/guix-data-service/substitutes.scm
index ec9f346..3ac09eb 100644
--- a/guix-data-service/substitutes.scm
+++ b/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)
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index be25979..7cd7342 100644
--- a/guix-data-service/utils.scm
+++ b/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)
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index 2e76a72..2fd26f5 100644
--- a/guix-data-service/web/server.scm
+++ b/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)
