diff options
| author | Munyoki Kilyungi | 2024-02-08 22:17:13 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-02-08 22:17:13 +0300 |
| commit | 7dbe3bddcdec6f8bb36c270d275d127a31078aa6 (patch) | |
| tree | f25296a1c588a298cfb6accf3372ece7c9cdf3a0 /examples/dataset-metadata-git.scm | |
| parent | 5ca0cf4337b07b7fdea27e3c19a5a1ff26d001f3 (diff) | |
| download | gn-transform-databases-7dbe3bddcdec6f8bb36c270d275d127a31078aa6.tar.gz | |
Fix how the dataset directory is constructed.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dataset-metadata-git.scm')
| -rwxr-xr-x | examples/dataset-metadata-git.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm index cd3081c..b6c6fc0 100755 --- a/examples/dataset-metadata-git.scm +++ b/examples/dataset-metadata-git.scm @@ -42,8 +42,11 @@ (experiment-design (get* "ExperimentDesign")) (acknowledgment (get* "Acknowledgment"))) (for-each (lambda (x) - (save-file (file-name (string-append dir-name (car x))) - (cdr x))) + (save-file + (string-append (file-name identifier) + "/" + (car x)) + (cdr x))) `(("summary.rtf" . ,summary) ("tissue.rtf" . ,tissue) ("specifics.rtf" . ,specifics) |