diff options
| author | Arun Isaac | 2025-04-22 22:36:39 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-04-22 22:36:39 +0100 |
| commit | a3304d6b4a8f42f812f196083bed0bf1195deb69 (patch) | |
| tree | be2fe483ed98ccd1dfecfe94416a0172b54cd6f8 | |
| parent | cf3d71bf43729d153e9240bc1df70c2f62cd4e49 (diff) | |
| download | ravanan-a3304d6b4a8f42f812f196083bed0bf1195deb69.tar.gz ravanan-a3304d6b4a8f42f812f196083bed0bf1195deb69.tar.lz ravanan-a3304d6b4a8f42f812f196083bed0bf1195deb69.zip | |
command-line-tool: Stage secondary files too.
* ravanan/command-line-tool.scm (build-command-line-tool-script):
Stage secondary files too.
| -rw-r--r-- | ravanan/command-line-tool.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index edcaaab..1933051 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -982,8 +982,15 @@ directory of the workflow." ;; Stage file as entry-name and return the staged File value. (rename-file (assoc-ref* file "path") entry-name) - (canonicalize-file-value `(("class" . "File") - ("path" . ,entry-name)))) + (canonicalize-file-value + (maybe-assoc-set `(("class" . "File") + ("path" . ,entry-name)) + (cons "secondaryFiles" + (maybe-let* ((secondary-files + (maybe-assoc-ref (just file) "secondaryFiles"))) + (just (vector-map (lambda (file) + (stage-file file (assoc-ref* file "basename"))) + secondary-files))))))) ;; Stage files. ;; We currently support File and Dirent only. TODO: Support others. @@ -1001,7 +1008,6 @@ directory of the workflow." ;; Symlink to the file. ((eq? (object-type entry) 'File) - ;; TODO: Stage secondary files too? (cons entry (stage-file entry entry-name)))))) entries)) |