From 753805cb8e1bb35397c97315f3edf7981b2e73eb Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 26 Jun 2025 19:57:04 +0100
Subject: 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.
---
 ravanan/command-line-tool.scm | 4 ++--
 1 file 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)))
 
-- 
cgit v1.2.3