civodul pushed a commit to branch core-updates
in repository guix.
commit b2459387b9af3acff543854d8f45df7376140a91
Author: Maxime Devos <[email protected]>
AuthorDate: Mon May 31 19:54:49 2021 +0200
gnu: nanopolish: Set #:guile argument of 'wrap-script'.
* gnu/packages/bioinformatics.scm
(nanopolish)[arguments]<#:phases>{wrap-programs}:
Set #:guile argument of ‘wrap-script’.
Signed-off-by: Ludovic Courtès <[email protected]>
---
gnu/packages/bioinformatics.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 965e26b..fc2fc86 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -13583,16 +13583,18 @@ choosing which reads pass the filter.")
(find-files "scripts" ".*"))
#t)))
(add-after 'install 'wrap-programs
- (lambda* (#:key outputs #:allow-other-keys)
+ (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((pythonpath (getenv "GUIX_PYTHONPATH"))
(perl5lib (getenv "PERL5LIB"))
(scripts (string-append (assoc-ref outputs "out")
- "/share/nanopolish/scripts")))
+ "/share/nanopolish/scripts"))
+ (guile (search-input-file inputs "bin/guile")))
(for-each (lambda (file)
(wrap-program file `("GUIX_PYTHONPATH" ":" prefix
(,pythonpath))))
(find-files scripts "\\.py"))
(for-each (lambda (file)
- (wrap-script file `("PERL5LIB" ":" prefix
(,perl5lib))))
+ (wrap-script file #:guile guile
+ `("PERL5LIB" ":" prefix
(,perl5lib))))
(find-files scripts "\\.pl"))))))))
(inputs
`(("guile" ,guile-3.0) ; for wrappers
