tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 03:51:53 +02:00
Code Activity

utils: Add 'install-file'.

Browse Source 
* guix/build/utils.scm (install-file): New procedure.
This commit is contained in:
Ludovic Courtès
2015-08-28 22:07:05 +02:00
parent 90d891fc6c
commit 4cc2ed98cf
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
guix/build/utils.scm
+7
View File
@@ -43,6 +43,7 @@
ar-file? ar-file?
with-directory-excursion with-directory-excursion
mkdir-p mkdir-p
install-file
copy-recursively copy-recursively
delete-file-recursively delete-file-recursively
file-name-predicate file-name-predicate
@@ -197,6 +198,12 @@ with the bytes in HEADER, a bytevector."
(apply throw args)))))) (apply throw args))))))
(() #t)))) (() #t))))
(define (install-file file directory)
"Create DIRECTORY if it does not exist and copy FILE in there under the same
name."
(mkdir-p directory)
(copy-file file (string-append directory "/" (basename file))))
(define* (copy-recursively source destination (define* (copy-recursively source destination
#:key #:key
(log (current-output-port)) (log (current-output-port))