nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: f-seq: Factorise ‘install’ phase. 

* gnu/packages/bioinformatics.scm (f-seq)[arguments]: Let-bind more.
master
Tobias Geerinckx-Rice 2018-05-18 15:17:33 +02:00
parent 7c2a46461e
commit c61d822621
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/bioinformatics.scm
View File

@ -11550,7 +11550,9 @@ browser.")
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((target (assoc-ref outputs "out"))
(doc (string-append target "/share/doc/f-seq/")))
(bin (string-append target "/bin"))
(doc (string-append target "/share/doc/f-seq"))
(lib (string-append target "/lib")))
(mkdir-p target)
(mkdir-p doc)
(substitute* "bin/linux/fseq"
@ -11559,11 +11561,11 @@ browser.")
(string-append (assoc-ref inputs "java-commons-cli")
"/share/java/commons-cli.jar"))
(("REALDIR=.*")
(string-append "REALDIR=" target "/bin\n")))
(string-append "REALDIR=" bin "\n")))
(install-file "README.txt" doc)
(install-file "bin/linux/fseq" (string-append target "/bin"))
(install-file "build~/fseq.jar" (string-append target "/lib"))
(copy-recursively "lib" (string-append target "/lib"))
(install-file "bin/linux/fseq" bin)
(install-file "build~/fseq.jar" lib)
(copy-recursively "lib" lib)
#t))))))
(inputs
`(("perl" ,perl)