diff options
| author | Munyoki Kilyungi | 2024-10-31 12:59:23 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-10-31 12:59:23 +0300 |
| commit | 3cd4fcb1c69bde2295f74af86e9eaa5f0343c48f (patch) | |
| tree | 06b15312700bc925f661c6c8f34c0794d91a0fee | |
| parent | 69e3f47fa29f9f967dfa66860edaec51c0de0125 (diff) | |
| download | gn-transform-databases-master.tar.gz | |
This reverts commit 69e3f47fa29f9f967dfa66860edaec51c0de0125.
| -rwxr-xr-x | visualize-schema.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/visualize-schema.scm b/visualize-schema.scm index 2097400..92f9272 100755 --- a/visualize-schema.scm +++ b/visualize-schema.scm @@ -34,7 +34,7 @@ (define %sparql-host (make-parameter #f)) -(define %sparql-http-server-port +(define %sparql-port (make-parameter #f)) (define (sparql-query-records . args) @@ -43,7 +43,7 @@ (query-results->list (apply sparql-query (append args (list #:host (%sparql-host) - #:port (%sparql-http-server-port)))) + #:port (%sparql-port)))) #t)) (define (floor-log1024 x) @@ -284,7 +284,7 @@ PORT." (let ((connection-settings (call-with-input-file connection-settings-file read))) (parameterize ((%sparql-host (assq-ref connection-settings 'sparql-host)) - (%sparql-server-port (assq-ref connection-settings 'sparql-http-server-port))) + (%sparql-port (assq-ref connection-settings 'sparql-port))) (call-with-output-file "sql.dot" write-sql-visualization) (call-with-output-file "rdf.dot" |