From 743cec7cb675dc6cc792a01daf898c011fc20fc7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 12 Jul 2019 19:45:41 +0100 Subject: Associate a name with database connections This helps when working out which connection to the database is doing what. --- scripts/guix-data-service-process-branch-updated-email.in | 1 + scripts/guix-data-service-process-jobs.in | 1 + scripts/guix-data-service-query-build-servers.in | 3 ++- 3 files changed, 4 insertions(+), 1 deletion(-) (limited to 'scripts') diff --git a/scripts/guix-data-service-process-branch-updated-email.in b/scripts/guix-data-service-process-branch-updated-email.in index 58fb772..6170a32 100644 --- a/scripts/guix-data-service-process-branch-updated-email.in +++ b/scripts/guix-data-service-process-branch-updated-email.in @@ -29,6 +29,7 @@ (guix-data-service branch-updated-emails)) (with-postgresql-connection + "process-branch-updated-email" (lambda (conn) (enqueue-job-for-email conn diff --git a/scripts/guix-data-service-process-jobs.in b/scripts/guix-data-service-process-jobs.in index e4347e4..51b01bd 100644 --- a/scripts/guix-data-service-process-jobs.in +++ b/scripts/guix-data-service-process-jobs.in @@ -31,6 +31,7 @@ (setvbuf (current-error-port) 'line) (with-postgresql-connection + "process-jobs" (lambda (conn) (simple-format #t "Ready to process jobs...\n") (process-jobs conn))) diff --git a/scripts/guix-data-service-query-build-servers.in b/scripts/guix-data-service-query-build-servers.in index 2451fbf..b0b3cd0 100644 --- a/scripts/guix-data-service-query-build-servers.in +++ b/scripts/guix-data-service-query-build-servers.in @@ -25,4 +25,5 @@ (squee) (guix-data-service builds)) -(with-postgresql-connection query-build-servers) +(with-postgresql-connection "query-build-servers" + query-build-servers) -- cgit v1.2.3