ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 20:49:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

docker: Hide scary-looking but harmless tar failure messages.

Browse source 
* guix/docker.scm (build-docker-image): Wrap "tar --delete" invocation
in 'with-error-to-port'.
This commit is contained in:
Ludovic Courtès 2018-11-29 09:30:00 +01:00
parent 1fe1bb96f2
commit d09ce3f91b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/docker.scm
View file

@ -209,8 +209,13 @@ (define transformation-options
;; the path "/a" into "/". The presence of "/" in the archive is ;; the path "/a" into "/". The presence of "/" in the archive is
;; probably benign, but it is definitely safe to remove it, so let's ;; probably benign, but it is definitely safe to remove it, so let's
;; do that. This fails when "/" is not in the archive, so use system* ;; do that. This fails when "/" is not in the archive, so use system*
;; instead of invoke to avoid an exception in that case. ;; instead of invoke to avoid an exception in that case, and redirect
(system* "tar" "--delete" "/" "-f" "layer.tar") ;; stderr to the bit bucket to avoid "Exiting with failure status"
;; error messages.
(with-error-to-port (%make-void-port "w")
(lambda ()
(system* "tar" "--delete" "/" "-f" "layer.tar")))
(for-each delete-file-recursively (for-each delete-file-recursively
(map (compose topmost-component symlink-source) (map (compose topmost-component symlink-source)
symlinks)) symlinks))