diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-03-10 21:48:02 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-03-11 17:15:00 +0000 |
| commit | 241d49136f9a8fada87ee2a53920fe3506e81607 (patch) | |
| tree | 30589d5c063b04e33db25267e11bd4c884c6f004 | |
| parent | 73e1c0318bd0a1e84656124cd1d3833e4b8e2fdb (diff) | |
| download | data-service-241d49136f9a8fada87ee2a53920fe3506e81607.tar data-service-241d49136f9a8fada87ee2a53920fe3506e81607.tar.gz | |
Get set-thread-name from knots
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 2 | ||||
| -rw-r--r-- | guix-data-service/poll-git-repository.scm | 3 | ||||
| -rw-r--r-- | guix-data-service/substitutes.scm | 3 | ||||
| -rw-r--r-- | guix-data-service/utils.scm | 2 | ||||
| -rw-r--r-- | 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) |