~ruther/guix-local

daf72603ebcd7e78222d16273d4cda4e71a156de — Petter 9 years ago 7c90d0f
gnu: Remove redundancy where mkdir-p <dir> is followed by install-file <file> <dir>.

* gnu/packages/bioinformatics.scm (bwa)[arguments]: Remove redundant mkdir-p.
(eigensoft)[arguments]: Likewise.
(snap-aligner)[arguments]: Likewise.
(pardre)[arguments]: Likewise.
(piranha)[arguments]: Likewise.
* gnu/packages/maths.scm (hypre)[arguments]: Likewise.
* gnu/packages/mp3.scm (mpc123)[arguments]: Likewise.
* gnu/packages/music.scm (tuxguitar)[arguments]: Likewise.
* gnu/packages/pdf.scm (impressive)[arguments]: Likewise.
* gnu/packages/qemu.scm (qemu)[arguments]: Likewise.

Signed-off-by: Leo Famulari <leo@famulari.name>
M gnu/packages/bioinformatics.scm => gnu/packages/bioinformatics.scm +0 -7
@@ 1261,9 1261,6 @@ splice junctions between exons.")
                      (assoc-ref outputs "out") "/share/doc/bwa"))
                (man (string-append
                      (assoc-ref outputs "out") "/share/man/man1")))
            (mkdir-p bin)
            (mkdir-p doc)
            (mkdir-p man)
            (install-file "bwa" bin)
            (install-file "README.md" doc)
            (install-file "bwa.1" man)))


@@ 2155,7 2152,6 @@ of nucleic acid binding proteins.")
             (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (bin  (string-append out "/bin")))
                 (mkdir-p bin)
                 (for-each (lambda (file)
                             (install-file file bin))
                           (find-files "../bin" ".*"))


@@ 4834,7 4830,6 @@ optionally compressed by gzip.")
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bin (string-append out "/bin")))
               (mkdir-p bin)
               (install-file "snap-aligner" bin)
               (install-file "SNAPCommand" bin)
               #t))))))


@@ 5694,7 5689,6 @@ Needleman-Wunsch).")
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
               (mkdir-p bin)
               (install-file "ParDRe" bin)
               #t))))))
    (inputs


@@ 7572,7 7566,6 @@ intervals (e.g. genes, sequence alignments).")
             (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (bin (string-append out "/bin")))
                 (mkdir-p bin)
                 (for-each (lambda (file)
                             (install-file file bin))
                           (find-files "bin" ".*")))

M gnu/packages/maths.scm => gnu/packages/maths.scm +0 -1
@@ 2723,7 2723,6 @@ set.")
             ;; Custom install because docs/Makefile doesn't honor ${docdir}.
             (let* ((doc (assoc-ref outputs "doc"))
                    (docdir (string-append doc "/share/doc/hypre-" ,version)))
               (mkdir-p docdir)
               (with-directory-excursion "docs"
                 (for-each (lambda (base)
                             (install-file (string-append base ".pdf") docdir)

M gnu/packages/mp3.scm => gnu/packages/mp3.scm +0 -1
@@ 441,7 441,6 @@ format.")
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bin (string-append out "/bin")))
               (mkdir-p bin)
               (install-file "mpc123" bin)))))
       #:tests? #f))
    (native-inputs

M gnu/packages/music.scm => gnu/packages/music.scm +0 -1
@@ 1216,7 1216,6 @@ is subjective.")
                    (lib   (string-append share "/java"))
                    (swt   (assoc-ref inputs "java-swt")))
               (mkdir-p bin)
               (mkdir-p lib)
               ;; install all jars
               (for-each (lambda (file)
                           (install-file file lib))

M gnu/packages/pdf.scm => gnu/packages/pdf.scm +0 -1
@@ 701,7 701,6 @@ vector formats.")
                            (,(string-append sdl "/lib")))
                          `("PATH" ":" prefix     ;for pdftoppm
                            (,(string-append xpdf "/bin"))))
                        (mkdir-p man1)
                        (install-file "impressive.1" man1)
                        #t))))))
    (home-page "http://impressive.sourceforge.net")

M gnu/packages/qemu.scm => gnu/packages/qemu.scm +0 -1
@@ 117,7 117,6 @@
                 (let ((out (assoc-ref outputs "out")))
                   (and (zero? (system* "make" "info"))
                        (let ((infodir (string-append out "/share/info")))
                          (mkdir-p infodir)
                          (for-each (lambda (info)
                                      (install-file info infodir))
                                    (find-files "." "\\.info$"))