From ed6a4b157765414a0985cccb401212c70145ef15 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 2 Nov 2024 09:35:23 +0000
Subject: [PATCH] Use a separate db connection in
 channel-derivations-by-system-promise

As this can run in parallel with something else using conn.
---
 guix-data-service/jobs/load-new-guix-revision.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index 8852139..1122342 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -2214,11 +2214,14 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
     (define channel-derivations-by-system-promise
       (fibers-delay
        (lambda ()
-         (channel->source-and-derivations-by-system
-          conn
-          channel-for-commit
-          fetch-with-authentication?
-          #:parallelism parallelism))))
+         (with-postgresql-connection
+          "load-new-guix-revision channel->source-and-derivations-by-system"
+          (lambda (channel-conn)
+            (channel->source-and-derivations-by-system
+             channel-conn
+             channel-for-commit
+             fetch-with-authentication?
+             #:parallelism parallelism))))))
 
     (define guix-revision-id-promise
       (fibers-delay