aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ravanan/command-line-tool.scm4
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)))