From 817ff57604cb340f26147b2ff328e358fb24df4c Mon Sep 17 00:00:00 2001
From: Andy Tai <atai@atai.org>
Date: Thu, 14 Aug 2025 01:01:42 -0700
Subject: [PATCH] gnu: jaro: Set paths.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/guile-xyz.scm (jaro)[arguments]: Add ‘set-paths’ phase.

Change-Id: I0a1fe4124d4458a1585816398f5362759784acea
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #1988
Signed-off-by: Rutherther <rutherther@ditigal.xyz>
---
 gnu/packages/guile-xyz.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 8252b3cf252fe6d804ad034b836192399ba71d76..96a343bc580a7e5e3061918c315cbc973f9d3e80 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -7654,6 +7654,24 @@ ftypes.")
               (lambda* (#:key outputs #:allow-other-keys)
                 (install-file "jaro"
                               (string-append #$output "/bin"))))
+            (add-before 'install 'set-paths
+              (lambda* (#:key inputs #:allow-other-keys)
+                (substitute* "jaro"
+                  (("^exec guile")
+                   (string-append "exec "
+                                  (search-input-file inputs "/bin/guile")))
+                  (("\"mimetype\"")
+                   (string-append "\""
+                                  (search-input-file inputs "/bin/mimetype")
+                                  "\""))
+                  (("\"file\"")
+                   (string-append "\""
+                                  (search-input-file inputs "/bin/file")
+                                  "\""))
+                  (("\"printf\"")
+                   (string-append "\""
+                                  (search-input-file inputs "/bin/printf")
+                                  "\"")))))
             (replace 'check
               (lambda* (#:key tests? #:allow-other-keys)
                 (when tests?