From 7573300128e3e6318723615a048e02de1e8d8887 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 11 Sep 2024 15:56:00 +0200
Subject: [PATCH] =?UTF-8?q?utils:=20=E2=80=98compressed-file=3F=E2=80=99?=
 =?UTF-8?q?=20recognizes=20.zst=20and=20.tzst.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This ensures ‘guix publish’ does not re-compress zst files.

* guix/utils.scm (compressed-file?): Add ‘tzst’ and ‘zst’.

Change-Id: Iae39e8826f1fc242d2e15d86c82a8ff84797002e
---
 guix/utils.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 @@ (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