diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-09 19:27:11 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-10 18:56:31 +0100 |
| commit | 2971322b27247554fb4a7cbff75f68d55e2c3329 (patch) | |
| tree | 3b48ca1a4f95aa2347d24bd350762b2fde38a1cb | |
| parent | 75ef4cffd30b1a82bd20e8db2f9724448fa9d386 (diff) | |
| download | data-service-2971322b27247554fb4a7cbff75f68d55e2c3329.tar data-service-2971322b27247554fb4a7cbff75f68d55e2c3329.tar.gz | |
Set thread names
To help with debugging
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 7 | ||||
| -rw-r--r-- | guix-data-service/substitutes.scm | 12 |
2 files changed, 19 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 816cbf2..c9408f5 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -36,6 +36,8 @@ #:use-module (guix packages) #:use-module (guix derivations) #:use-module (guix build utils) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix-data-service config) #:use-module (guix-data-service database) #:use-module (guix-data-service utils) @@ -170,6 +172,11 @@ VALUES (nextval('" (log-part-sequence-name job_id) "'), $1, $2)") (setvbuf port-to-write-to 'line) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "inferior logging")) + (const #t)) + (with-postgresql-connection (simple-format #f "~A inferior error logging" job-id) (lambda (logging-conn) diff --git a/guix-data-service/substitutes.scm b/guix-data-service/substitutes.scm index 54b4c9e..c7a45dc 100644 --- a/guix-data-service/substitutes.scm +++ b/guix-data-service/substitutes.scm @@ -24,6 +24,8 @@ #:use-module (fibers channels) #:use-module (guix substitutes) #:use-module (guix narinfo) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix-data-service utils) #:use-module (guix-data-service database) #:use-module (guix-data-service model build) @@ -155,6 +157,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "request substitute query")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) @@ -196,6 +203,11 @@ (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name "bulk substitute query")) + (const #t)) + (while #t (with-exception-handler (lambda (exn) |