Associate a name with database connections

This helps when working out which connection to the database is doing what.
2019-07-12 19:45:41 +01:00 · 2019-07-12 19:45:41 +01:00 · 743cec7cb6
commit 743cec7cb6
parent 1b5db7adac
14 changed files with 20 additions and 4 deletions
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@ -703,6 +703,7 @@ ORDER BY load_new_guix_revision_jobs.id DESC")
                     (lambda ()
                       (let ((result
                              (with-postgresql-connection
+                               (simple-format #f "load-new-guix-revision ~A logging" id)
                               (lambda (logging-conn)
                                 (insert-empty-log-entry logging-conn id)
                                 (let ((logging-port (log-port id logging-conn)))