diff options
| -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) |