diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2022-12-04 14:53:09 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2022-12-04 14:53:09 -0500 |
| commit | 37ec784fe5df27fc7a785a51f4e137516c0e9106 (patch) | |
| tree | 54286d5396af69e8c8a0f83a5c7ced9dfa2f48d4 | |
| parent | f7a4045be79aa0f77b132d646c2f68852c2f62fc (diff) | |
[dynamic] Specify user in Postgres paramstring
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/comments.scm | 2 | ||||
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/gallery.scm | 2 | ||||
| -rw-r--r-- | 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")) |