diff options
| author | Munyoki Kilyungi | 2023-07-30 12:35:42 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-31 13:12:28 +0300 |
| commit | 0031d77d8c780eba153d08981bc93e51e498d8de (patch) | |
| tree | ac9ceb8f3b21da7ba1138e24694eab3f2338723e | |
| parent | c04381e819dee1d21999949b568ad3ba6a3a70d9 (diff) | |
| download | gn-transform-databases-0031d77d8c780eba153d08981bc93e51e498d8de.tar.gz | |
Pass a default dump-directory when dumping table metadata
* dump/schema-dump.scm (dump-data-table): Add extra optional arg
"default-dump-directory".
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rw-r--r-- | dump/schema-dump.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/dump/schema-dump.scm b/dump/schema-dump.scm index 3f52a32..86626f4 100644 --- a/dump/schema-dump.scm +++ b/dump/schema-dump.scm @@ -94,8 +94,9 @@ is a <table> object." (table-columns table)))) tables))) -(define (dump-data-table db table-name data-field) - (let ((dump-directory (string-append %dump-directory "/" table-name)) +(define* (dump-data-table db table-name data-field + #:optional (default-dump-directory "")) + (let ((dump-directory (string-append default-dump-directory "/" table-name)) (port #f) (current-strain-id #f)) (unless (file-exists? dump-directory) |