aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/database.scm4
1 files changed, 3 insertions, 1 deletions
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 ()