ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/build/utils.scm
View file

@ -43,6 +43,7 @@ (define-module (guix build utils)
ar-file?
with-directory-excursion
mkdir-p
install-file
copy-recursively
delete-file-recursively
file-name-predicate
@ -197,6 +198,12 @@ (define not-slash
(apply throw args))))))
(() #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
#:key
(log (current-output-port))