From 37ec784fe5df27fc7a785a51f4e137516c0e9106 Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.org>
Date: Sun, 4 Dec 2022 14:53:09 -0500
Subject: [dynamic] Specify user in Postgres paramstring

---
 haunt/jakob/dynamic/capabilities/comments.scm | 2 +-
 haunt/jakob/dynamic/capabilities/gallery.scm  | 2 +-
 haunt/jakob/dynamic/capabilities/rsvp.scm     | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/haunt/jakob/dynamic/capabilities/comments.scm b/haunt/jakob/dynamic/capabilities/comments.scm
index 711fa3b..1e6e183 100644
--- a/haunt/jakob/dynamic/capabilities/comments.scm
+++ b/haunt/jakob/dynamic/capabilities/comments.scm
@@ -34,7 +34,7 @@
             put-comment
             put-reaction))
 
-(define conn (connect-to-postgres-paramstring "dbname=jakob_comments"))
+(define conn (connect-to-postgres-paramstring "user=jakob_dynamic dbname=jakob_comments"))
 
 (define (get-comments-by-slug slug)
   "Internal function for querying the approved comments on a post
diff --git a/haunt/jakob/dynamic/capabilities/gallery.scm b/haunt/jakob/dynamic/capabilities/gallery.scm
index ce154b9..8f29c85 100644
--- a/haunt/jakob/dynamic/capabilities/gallery.scm
+++ b/haunt/jakob/dynamic/capabilities/gallery.scm
@@ -28,7 +28,7 @@
   #:use-module (web uri)
   #:export (get-gallery get-image))
 
-(define conn (connect-to-postgres-paramstring "dbname=jakob_gallery"))
+(define conn (connect-to-postgres-paramstring "user=jakob_dynamic dbname=jakob_gallery"))
 
 ;; How many bytes of entropy to use when generating vanity ID's.
 (define %vanity-length (make-parameter 9))
diff --git a/haunt/jakob/dynamic/capabilities/rsvp.scm b/haunt/jakob/dynamic/capabilities/rsvp.scm
index e29d5fb..a359799 100644
--- a/haunt/jakob/dynamic/capabilities/rsvp.scm
+++ b/haunt/jakob/dynamic/capabilities/rsvp.scm
@@ -37,7 +37,7 @@
 (define %event-image-path-fmt (make-parameter "/home/jakob/event-images/~a.png"))
 
 ;; Global handle to the RSVP database.
-(define conn (connect-to-postgres-paramstring "dbname=jakob_rsvp"))
+(define conn (connect-to-postgres-paramstring "user=jakob_dynamic dbname=jakob_rsvp"))
 
 
 
-- 
cgit v1.3