mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
utils: ‘compressed-file?’ recognizes .zst and .tzst.
This ensures ‘guix publish’ does not re-compress zst files. * guix/utils.scm (compressed-file?): Add ‘tzst’ and ‘zst’. Change-Id: Iae39e8826f1fc242d2e15d86c82a8ff84797002e
This commit is contained in:
parent
b2f5a9dd67
commit
7573300128
1 changed files with 2 additions and 1 deletions
|
@ -973,7 +973,8 @@ (define (tarball-sans-extension tarball)
|
|||
(define (compressed-file? file)
|
||||
"Return true if FILE denotes a compressed file."
|
||||
(->bool (member (file-extension file)
|
||||
'("gz" "bz2" "xz" "lz" "lzma" "tgz" "tbz2" "zip"))))
|
||||
'("gz" "bz2" "xz" "lz" "lzma" "tgz" "tbz2" "tzst"
|
||||
"zip" "zst"))))
|
||||
|
||||
(define* (string-replace-substring str substr replacement
|
||||
#:optional
|
||||
|
|
Loading…
Reference in a new issue