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$"))