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

gexp: 'directory-union' has a #:quiet? parameter.

Browse source 
* guix/gexp.scm (directory-union): Add #:quiet? and honor it.
This commit is contained in:
Ludovic Courtès 2017-10-19 16:10:18 +02:00
parent 59523429d6
commit de98b302a1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
guix/gexp.scm
View file

@ -1205,7 +1205,7 @@ (define (file-union name files)
files))))))
(define* (directory-union name things
#:key (copy? #f))
#:key (copy? #f) (quiet? #f))
"Return a directory that is the union of THINGS, where THINGS is a list of
file-like objects denoting directories. For example:
@ -1213,7 +1213,8 @@ (define* (directory-union name things
yields a directory that is the union of the 'guile' and 'emacs' packages.
When COPY? is true, copy files instead of creating symlinks."
When HARD-LINKS? is true, create hard links instead of symlinks. When QUIET?
is true, the derivation will not print anything."
(define symlink
(if copy?
(gexp (lambda (old new)
@ -1222,6 +1223,11 @@ (define symlink
(copy-file old new))))
(gexp symlink)))
(define log-port
(if quiet?
(gexp (%make-void-port "w"))
(gexp (current-error-port))))
(match things
((one)
;; Only one thing; return it.
@ -1234,6 +1240,7 @@ (define symlink
(union-build (ungexp output)
'(ungexp things)
#:log-port (ungexp log-port)
#:symlink (ungexp symlink)))))))))