03/16: Name the resource pools

[Christopher Baines]

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

commit b2dcccb26479598a662f1c64e90b425379412fc0
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Wed Aug 14 20:12:19 2024 +0100

    Name the resource pools
---
 guix-data-service/web/server.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index 1be3ef4..cc67624 100644
--- a/guix-data-service/web/server.scm
+++ b/guix-data-service/web/server.scm
@@ -175,6 +175,7 @@ port. Also, the port used can be changed by passing the 
--port option.\n"
                           "web"
                           postgresql-statement-timeout))
                        (floor (/ postgresql-connections 2))
+                       #:name "web"
                        #:idle-seconds 30
                        #:destructor
                        (lambda (conn)
@@ -187,6 +188,7 @@ port. Also, the port used can be changed by passing the 
--port option.\n"
                           "web-reserved"
                           postgresql-statement-timeout))
                        (floor (/ postgresql-connections 2))
+                       #:name "web-reserved"
                        #:idle-seconds 600
                        #:destructor
                        (lambda (conn)