diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-07-06 14:32:56 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-07-18 02:11:13 -0400 |
| commit | c170abba4735a2c8a6845063fae8bf090975cbf9 (patch) | |
| tree | 12875f0bed0e84501f3f2138a0e6b29f9837b41d /guix/build/pack.scm | |
| parent | 11f0698243da27be93b16cec574fbf262279779a (diff) | |
build: pack: Mute error output when checking if tar supports --sort.
* guix/build/pack.scm (tar-base-options) [tar-supports-sort?]: Redirect error
output to void.
Diffstat (limited to 'guix/build/pack.scm')
| -rw-r--r-- | guix/build/pack.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/build/pack.scm b/guix/build/pack.scm index 05c7a3c594..3b73d1b227 100644 --- a/guix/build/pack.scm +++ b/guix/build/pack.scm @@ -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)) |