tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-10 15:10:37 +02:00
Code Activity

build: pack: Mute error output when checking if tar supports --sort.

Browse Source 
* guix/build/pack.scm (tar-base-options) [tar-supports-sort?]: Redirect error
output to void.
This commit is contained in:
Maxim Cournoyer
2021-07-06 14:32:56 -04:00
parent 11f0698243
commit c170abba47
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
guix/build/pack.scm
View File

@@ -27,8 +27,10 @@ deterministically. When TAR, a GNU tar command file name, is provided, the
'(\"gzip\" \"-9n\"), is provided, the compressor is explicitly specified via
the `-I' option."
(define (tar-supports-sort? tar)
(zero? (system* tar "cf" "/dev/null" "--files-from=/dev/null"
"--sort=name")))
(with-error-to-port (%make-void-port "w")
(lambda ()
(zero? (system* tar "cf" "/dev/null" "--files-from=/dev/null"
"--sort=name")))))
`(,@(if compressor
(list "-I" (string-join compressor))