nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: make-bootstrap: tarball-package: Use invoke instead of system*. 

* gnu/packages/make-bootstrap.scm (tarball-package)[arguments]: Use invoke.
The builder always returns #t.
This commit is contained in:
Mark H Weaver 2018-03-16 06:36:21 -04:00
parent 1a83e2a286
commit d1c86620f3
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/make-bootstrap.scm
View File

@ -632,17 +632,17 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(mkdir out) (mkdir out)
(set-path-environment-variable "PATH" '("bin") (list tar xz)) (set-path-environment-variable "PATH" '("bin") (list tar xz))
(with-directory-excursion input (with-directory-excursion input
(zero? (system* "tar" "cJvf" (invoke "tar" "cJvf"
(string-append out "/" (string-append out "/"
,name "-" ,version ,name "-" ,version
"-" "-"
,(or (%current-target-system) ,(or (%current-target-system)
(%current-system)) (%current-system))
".tar.xz") ".tar.xz")
"." "."
;; avoid non-determinism in the archive ;; avoid non-determinism in the archive
"--sort=name" "--mtime=@0" "--sort=name" "--mtime=@0"
"--owner=root:0" "--group=root:0")))))))))) "--owner=root:0" "--group=root:0")))))))))
(define %bootstrap-binaries-tarball (define %bootstrap-binaries-tarball
;; A tarball with the statically-linked bootstrap binaries. ;; A tarball with the statically-linked bootstrap binaries.