amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: ‘compressed-file?’ recognizes .zst and .tzst.

Browse source 
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:
Ludovic Courtès 2024-09-11 15:56:00 +02:00
parent b2f5a9dd67
commit 7573300128
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guix/utils.scm
View file

@ -973,7 +973,8 @@ VERSIONS. For example:
(define (compressed-file? file) (define (compressed-file? file)
"Return true if FILE denotes a compressed file." "Return true if FILE denotes a compressed file."
(->bool (member (file-extension 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 (define* (string-replace-substring str substr replacement
#:optional #:optional