mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
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>
This commit is contained in:
@@ -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?
|
||||
|
||||
Reference in New Issue
Block a user