01/12: Work around the resource pool needing a destructor

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 5cca88ca2a1e33094cc456efdce555c36748a372
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Fri Jan 31 08:56:04 2025 +0100

    Work around the resource pool needing a destructor
---
 guix-data-service/jobs/load-new-guix-revision.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index c04d175..4f4b047 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1884,6 +1884,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE 
derivation_source_file_id = $1"
                                            'load-new-guix-revision-inserts))
        db-conn)
      1
+     #:destructor (const #t)            ; TODO Remove
      #:name "postgres"
      #:min-size 0))
 
@@ -2232,6 +2233,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE 
derivation_source_file_id = $1"
                 (make-resource-pool
                  (const channel-instances-conn)
                  1
+                 #:destructor (const #t) ; TODO Remove
                  #:name "postgres"
                  #:min-size 0)))