utils: 'tarball-sans-extension' recognizes ".tgz".

* guix/utils.scm (tarball-sans-extension): Add ".tgz".
This commit is contained in:
Ludovic Courtès 2021-04-04 22:24:42 +02:00
parent e917027d1f
commit 6f32e27e97
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

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