aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMunyoki Kilyungi2024-02-08 22:17:13 +0300
committerMunyoki Kilyungi2024-02-08 22:17:13 +0300
commit7dbe3bddcdec6f8bb36c270d275d127a31078aa6 (patch)
treef25296a1c588a298cfb6accf3372ece7c9cdf3a0 /examples
parent5ca0cf4337b07b7fdea27e3c19a5a1ff26d001f3 (diff)
downloadgn-transform-databases-7dbe3bddcdec6f8bb36c270d275d127a31078aa6.tar.gz
Fix how the dataset directory is constructed.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dataset-metadata-git.scm7
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)