ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/packages/bioinformatics.scm (f-seq)[arguments]: Let-bind more.
This commit is contained in:
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 @@ (define-public f-seq
(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 @@ (define-public f-seq
(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)