mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-16 12:00:35 +02:00
Code Releases Activity

gnu: Use INSTALL-FILE where appropriate.

Browse source 
* gnu/packages/admin.scm (wpa-supplicant-minimal): Substitute the simpler
INSTALL-FILE for COPY-FILE when invoked with redundant arguments.
* gnu/packages/bioinformatics.scm (couger, aragorn, express-beta-diversity,
edirect, fasttree, rsem, samtools-0.1): Likewise.
* gnu/packages/code.scm (withershins): Likewise.
* gnu/packages/conky.scm (conky): Likewise.
* gnu/packages/debug.scm (delta, american-fuzzy-lop): Likewise.
* gnu/packages/emacs.scm (emacs-mit-scheme-doc): Likewise.
* gnu/packages/engineering.scm (librecad): Likewise.
This commit is contained in:
Tobias Geerinckx-Rice 2017-03-13 16:19:06 +01:00
parent 618e4bfbad
commit f38607536e
No known key found for this signature in database
GPG key ID: 91CCDB9B48541B99
7 changed files with 38 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/debug.scm
View file

@ -68,10 +68,10 @@
(mkdir-p bin)
(mkdir-p doc)
(for-each (lambda (h)
(copy-file h (string-append doc "/" (basename h))))
(install-file h doc))
`("License.txt" ,@(find-files "www" ".*\\.html")))
(for-each (lambda (b)
(copy-file b (string-append bin "/" b)))
(install-file b bin))
`("delta" "multidelta" "topformflat")))))
(alist-delete 'configure %standard-phases))))
(home-page "http://delta.tigris.org/")
@ -212,13 +212,13 @@ tools that process C/C++ code.")
(system* "tar" "xf"
(assoc-ref inputs "afl-src")))
(error "tar failed to unpack afl-src"))
(copy-file (string-append patch-dir
"/afl-qemu-cpu-inl.h")
"./afl-qemu-cpu-inl.h")
(install-file (string-append patch-dir
"/afl-qemu-cpu-inl.h")
".")
(copy-file (string-append afl-dir "/config.h")
"./afl-config.h")
(copy-file (string-append afl-dir "/types.h")
"./types.h")
(install-file (string-append afl-dir "/types.h")
".")
(substitute* "afl-qemu-cpu-inl.h"
(("\\.\\./\\.\\./config.h") "afl-config.h"))
(substitute* (string-append patch-dir