gnu: jaro: Set paths.

* 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>

1 files changed, 18 insertions, 0 deletions

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 8252b3cf252..96a343bc580 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?