guix_mirror_bot pushed a commit to branch next-master
in repository guix.
commit b843a3f5d88e4a5231143ed6b6ca3fa52b2bf11c
Author: Andy Tai <[email protected]>
AuthorDate: Thu Aug 14 01:01:42 2025 -0700
gnu: jaro: Set paths.
* gnu/packages/guile-xyz.scm (jaro)[arguments]: Add ‘set-paths’ phase.
Change-Id: I0a1fe4124d4458a1585816398f5362759784acea
Signed-off-by: Ludovic Courtès <[email protected]>
Merges: #1988
---
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 a93d24488b..ebab8f9027 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -7673,6 +7673,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?
