diff options
| author | Efraim Flashner | 2019-07-22 04:11:30 -0500 |
|---|---|---|
| committer | Efraim Flashner | 2019-07-22 04:11:30 -0500 |
| commit | 25f545fc897b3e7573c55e9e3a167e3a3a189888 (patch) | |
| tree | 7d9d03826885edd8e847962f10cea4f0e62754ac /gn/packages | |
| parent | 93d768f1e63f7ba0da1f38e14205acc30778094f (diff) | |
| download | guix-bioinformatics-25f545fc897b3e7573c55e9e3a167e3a3a189888.tar.gz | |
gn: bnw: Patch '/usr/bin/dot' references.
* gn/packages/bnw.scm (bnw): Add substitute* to patch '/usr/bin/dot'
calls with store graphviz references.
Diffstat (limited to 'gn/packages')
| -rw-r--r-- | gn/packages/bnw.scm | 42 |
1 files changed, 20 insertions, 22 deletions
diff --git a/gn/packages/bnw.scm b/gn/packages/bnw.scm index e6c9d46..e09a9a3 100644 --- a/gn/packages/bnw.scm +++ b/gn/packages/bnw.scm @@ -13,7 +13,7 @@ (revision "1")) (package (name "bnw") - (version (git-version "1.22" revision commit)) + (version (git-version "1.22" revision commit)) ; June 28, 2019 (source (origin (method git-fetch) (uri (git-reference @@ -27,29 +27,27 @@ (arguments `(#:modules ((guix build utils)) #:builder - (let* ((out (assoc-ref %outputs "out")) - (source (assoc-ref %build-inputs "source")) - (bash (assoc-ref %build-inputs "bash")) - (graphviz (assoc-ref %build-inputs "graphviz")) - (octave (assoc-ref %build-inputs "octave")) - (python (assoc-ref %build-inputs "python"))) (begin (use-modules (guix build utils)) - (copy-recursively source out) - (for-each (lambda (file) - (patch-shebang file - (list - (string-append bash "/bin") - (string-append octave "/bin") - (string-append python "/bin") - ))) - (find-files out ".*")) - ;(with-directory-excursion out - ; (substitute* '("home.php" - ; (find-files "sourcecodes" ".php") - ; (find-files "sourcecodes/run_scripts" ".*")) - ; (("/usr/bin/dot") (string-append graphviz "/bin/dot")))) - )))) + (let* ((out (assoc-ref %outputs "out")) + (source (assoc-ref %build-inputs "source")) + (bash (assoc-ref %build-inputs "bash")) + (graphviz (assoc-ref %build-inputs "graphviz")) + (octave (assoc-ref %build-inputs "octave")) + (python (assoc-ref %build-inputs "python"))) + (copy-recursively source out) + (for-each (lambda (file) + (patch-shebang file + (list (string-append bash "/bin") + (string-append octave "/bin") + (string-append python "/bin")))) + (find-files out ".*")) + (with-directory-excursion out + (substitute* + (append '("home.php") + (find-files "sourcecodes" ".php") + (find-files "sourcecodes/run_scripts" ".*")) + (("/usr/bin/dot") (string-append graphviz "/bin/dot")))))))) (native-inputs `(("source" ,source))) (inputs `(("bash" ,bash-minimal) |