03/09: disarchive-manifest: Handle tar.xz archives.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 2acffd56a58c01785ea6ea738b79991c0685d364
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Aug 4 21:32:41 2022 +0200

    disarchive-manifest: Handle tar.xz archives.
    
    * etc/disarchive-manifest.scm (tarball-origin?): Add ".tar.xz".
---
 etc/disarchive-manifest.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/etc/disarchive-manifest.scm b/etc/disarchive-manifest.scm
index 60edee8eac..e4bc97dd01 100644
--- a/etc/disarchive-manifest.scm
+++ b/etc/disarchive-manifest.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2021-2022 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -30,11 +30,12 @@
   (match (origin-actual-file-name origin)
     (#f #f)
     ((? string? file)
-     ;; As of version 0.2.1, Disarchive can only deal with raw tarballs and
-     ;; gzip-compressed tarballs.
+     ;; As of version 0.4.0, Disarchive can only deal with raw tarballs,
+     ;; gzip-compressed tarballs, and xz-compressed tarballs.
      (and (origin-hash origin)
           (or (string-suffix? ".tar.gz" file)
               (string-suffix? ".tgz" file)
+              (string-suffix? ".tar.xz" file)
               (string-suffix? ".tar" file))))))
 
 (define (origin->disarchive origin)