diff options
| author | Munyoki Kilyungi | 2023-08-21 14:54:21 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-08-21 14:56:57 +0300 |
| commit | 51b3c0548c98e0bc05e11a89cbf6b75d31b9f8d5 (patch) | |
| tree | ab3d7c6f589ed8480f0a9d451566681bcfd8eaaf /json-dump.scm | |
| parent | 849874fdfe11003f05abe5f82efde974a8c8a388 (diff) | |
| download | gn-transform-databases-51b3c0548c98e0bc05e11a89cbf6b75d31b9f8d5.tar.gz | |
Remove "dump-" prefix
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'json-dump.scm')
| -rwxr-xr-x | json-dump.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/json-dump.scm b/json-dump.scm index ccb64bc..8625139 100755 --- a/json-dump.scm +++ b/json-dump.scm @@ -8,7 +8,7 @@ -(define %dump-directory +(define %directory (list-ref (command-line) 2)) (define %data-directory @@ -55,9 +55,9 @@ inside it." result) (file-system-fold enter? leaf down up skip error 0 path)) -(define (dump-rdf path) +(define (rdf path) (with-output-to-file - (string-append %dump-directory "/sampledata.ttl") + (string-append %directory "/sampledata.ttl") (lambda () (prefix "gn:" "<http://genenetwork.org/>") (newline) @@ -70,4 +70,4 @@ inside it." (newline)) (json-metadata->rdf file)))))))) -(dump-rdf %data-directory) +(rdf %data-directory) |