From 5cca88ca2a1e33094cc456efdce555c36748a372 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 31 Jan 2025 08:56:04 +0100 Subject: [PATCH] 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)))