summary refs log tree commit diff
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-05-18 15:17:33 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2018-05-19 05:30:11 +0200
commitc61d822621df97f7d30915ff1d30ac3d34179b88 (patch)
treefcea849b6f4de1b4ea8a254affcd829d2d276eb9
parent7c2a46461e852f9e0813e5bba9598e3e2c590905 (diff)
downloadguix-c61d822621df97f7d30915ff1d30ac3d34179b88.tar.gz
gnu: f-seq: Factorise ‘install’ phase.
* gnu/packages/bioinformatics.scm (f-seq)[arguments]: Let-bind more.
-rw-r--r--gnu/packages/bioinformatics.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 8bfe01fd6f..a6d28be4e3 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -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)