diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-09-11 15:56:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-09-12 19:10:02 +0200 |
| commit | 7573300128e3e6318723615a048e02de1e8d8887 (patch) | |
| tree | f74447c54b509f3a5818630860916fc375425a2a | |
| parent | b2f5a9dd67352e035121c70cfdb34cd440c42e98 (diff) | |
| download | guix-7573300128e3e6318723615a048e02de1e8d8887.tar.gz guix-7573300128e3e6318723615a048e02de1e8d8887.zip | |
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
| -rw-r--r-- | guix/utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index d8ce6ed886..f161cb4ef3 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -973,7 +973,8 @@ VERSIONS. For example: (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 |