about summary refs log tree commit diff
path: root/dump.scm
diff options
context:
space:
mode:
authorArun Isaac2022-05-05 15:07:05 +0530
committerArun Isaac2022-05-05 15:12:09 +0530
commit1fcf31ec48d4c9f8c1ed45896cfb592ebae8f7fb (patch)
tree8c9e940707da45cb97785616dd482d5fa21b4ce1 /dump.scm
parent849fe4e22b359942350d7f583780482f1852e4bb (diff)
downloadgn-transform-databases-1fcf31ec48d4c9f8c1ed45896cfb592ebae8f7fb.tar.gz
Prefix SQL connection parameters with sql-.
This differentiates it from virtuoso and SPARQL connection parameters.

* dump.scm (call-with-genenetwork-database, dump-data-table): Prefix
SQL connection parameters with sql-.
* README.md (Using): Update documentation of SQL connection
parameters.
Diffstat (limited to 'dump.scm')
-rwxr-xr-xdump.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/dump.scm b/dump.scm
index b62640c..a3e89a3 100755
--- a/dump.scm
+++ b/dump.scm
@@ -20,13 +20,13 @@
 
 (define (call-with-genenetwork-database proc)
   (call-with-database "mysql" (string-join
-                               (list (assq-ref %connection-settings 'username)
-                                     (assq-ref %connection-settings 'password)
-                                     (assq-ref %connection-settings 'database)
+                               (list (assq-ref %connection-settings 'sql-username)
+                                     (assq-ref %connection-settings 'sql-password)
+                                     (assq-ref %connection-settings 'sql-database)
                                      "tcp"
-                                     (assq-ref %connection-settings 'host)
+                                     (assq-ref %connection-settings 'sql-host)
                                      (number->string
-                                      (assq-ref %connection-settings 'port)))
+                                      (assq-ref %connection-settings 'sql-port)))
                                ":")
                       proc))
 
@@ -725,7 +725,7 @@ is a <table> object."
                                (information_schema.tables data_length))
                               (information_schema.tables)
                               (format #f "WHERE table_schema = '~a'"
-                                      (assq-ref %connection-settings 'database))))))
+                                      (assq-ref %connection-settings 'sql-database))))))
 
 (define (dump-schema db)
   (let ((tables (tables db)))