Associate a name with database connections

This helps when working out which connection to the database is doing what.

3 files changed, 4 insertions, 1 deletions

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)