From 6f32e27e970c2f92e5ee1b5b5ce513c61484178e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 4 Apr 2021 22:24:42 +0200
Subject: [PATCH] utils: 'tarball-sans-extension' recognizes ".tgz".

* guix/utils.scm (tarball-sans-extension): Add ".tgz".
---
 guix/utils.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index 2dd1ddeb8a..05af86fc37 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -696,6 +696,7 @@ (define (file-sans-extension file)
 (define (tarball-sans-extension tarball)
   "Return TARBALL without its .tar.* or .zip extension."
   (let ((end (or (string-contains tarball ".tar")
+                 (string-contains tarball ".tgz")
                  (string-contains tarball ".zip"))))
     (substring tarball 0 end)))