~ruther/guix-local: gnu: jaro: Set paths.

817ff57604cb340f26147b2ff328e358fb24df4c — Andy Tai 6 months ago a4d39d2

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>

patch browse .tar.gz

1 files changed, 18 insertions(+), 0 deletions(-)

M gnu/packages/guile-xyz.scm

M gnu/packages/guile-xyz.scm => gnu/packages/guile-xyz.scm +18 -0

@@ 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?