diff options
| -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")) |