cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get set-thread-name from knots

Browse source
This commit is contained in:
Christopher Baines 2025-03-10 21:48:02 +00:00
parent 73e1c0318b
commit 241d49136f
5 changed files with 4 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -59,7 +59,7 @@
#:use-module (guix serialization) #:use-module (guix serialization)
#:use-module (guix build utils) #:use-module (guix build utils)
#:use-module ((guix build syscalls) #: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 jobs)
#:use-module (guix-data-service config) #:use-module (guix-data-service config)
#:use-module (guix-data-service database) #:use-module (guix-data-service database)

3
guix-data-service/poll-git-repository.scm
View file

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

3
guix-data-service/substitutes.scm
View file

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

2
guix-data-service/utils.scm
View file

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

3
guix-data-service/web/server.scm
View file

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