From 356a5954b20700f817e9a98aa4a76a3d091bdfba Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 8 Oct 2019 19:45:41 +0100
Subject: Add support for using a database URI

As this is useful when working with pg_tmp.
---
 guix-data-service/database.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/database.scm b/guix-data-service/database.scm
index 0d6d61b..257d48b 100644
--- a/guix-data-service/database.scm
+++ b/guix-data-service/database.scm
@@ -37,7 +37,9 @@
          "dbname=guix_data_service user=guix_data_service")
      " application_name='guix-data-service " name "'"))
 
-  (let* ((conn (connect-to-postgres-paramstring paramstring)))
+  (let* ((conn (connect-to-postgres-paramstring
+                (or (getenv "GUIX_DATA_SERVICE_DATABASE_URI")
+                    paramstring))))
     (with-throw-handler
       #t
       (lambda ()
-- 
cgit v1.2.3