summaryrefslogtreecommitdiff
path: root/guix/build/pack.scm
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2021-07-06 14:32:56 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2021-07-18 02:11:13 -0400
commitc170abba4735a2c8a6845063fae8bf090975cbf9 (patch)
tree12875f0bed0e84501f3f2138a0e6b29f9837b41d /guix/build/pack.scm
parent11f0698243da27be93b16cec574fbf262279779a (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.scm6
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))