about summary refs log tree commit diff
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)))