Work around the resource pool needing a destructor

This commit is contained in:
Christopher Baines 2025-01-31 08:56:04 +01:00
parent 8f3968af1e
commit 5cca88ca2a

View file

@ -1884,6 +1884,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
'load-new-guix-revision-inserts)) 'load-new-guix-revision-inserts))
db-conn) db-conn)
1 1
#:destructor (const #t) ; TODO Remove
#:name "postgres" #:name "postgres"
#:min-size 0)) #:min-size 0))
@ -2232,6 +2233,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(make-resource-pool (make-resource-pool
(const channel-instances-conn) (const channel-instances-conn)
1 1
#:destructor (const #t) ; TODO Remove
#:name "postgres" #:name "postgres"
#:min-size 0))) #:min-size 0)))