diff options
| author | Arun Isaac | 2025-06-26 19:57:04 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-06-26 19:57:04 +0100 |
| commit | 753805cb8e1bb35397c97315f3edf7981b2e73eb (patch) | |
| tree | 83ce52074c8179f7007afe1c3cf4f695b6b7bcab | |
| parent | bd673a4ef08f9154bad8cba4b85ac5dbe1917ee5 (diff) | |
| download | ravanan-753805cb8e1bb35397c97315f3edf7981b2e73eb.tar.gz ravanan-753805cb8e1bb35397c97315f3edf7981b2e73eb.tar.lz ravanan-753805cb8e1bb35397c97315f3edf7981b2e73eb.zip | |
command-line-tool: Pass down inputs directory to recursive calls.
*
ravanan/command-line-tool.scm (build-command-line-tool-script)[copy-input-files]:
Pass down inputs directory to recursive calls.
| -rw-r--r-- | ravanan/command-line-tool.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index a97ce80..62785cc 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -787,7 +787,7 @@ named @var{name} using tools from Guix manifest in @var{manifest-file} and on ;; Copy input files and update corresponding input objects. (cond ((vector? input) - (vector-map copy-input-files + (vector-map (cut copy-input-files <> inputs-directory) input)) ((eq? (object-type input) 'File) @@ -818,7 +818,7 @@ named @var{name} using tools from Guix manifest in @var{manifest-file} and on (cons "secondaryFiles" (maybe-let* ((secondary-files (maybe-assoc-ref (just input) "secondaryFiles"))) - (just (vector-map copy-input-files + (just (vector-map (cut copy-input-files <> inputs-directory) secondary-files))))))) (else input))) |