amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

disarchive-manifest: Handle tar.xz archives.

Browse source 
* etc/disarchive-manifest.scm (tarball-origin?): Add ".tar.xz".
This commit is contained in:
Ludovic Courtès 2022-08-04 21:32:41 +02:00
parent 68edaf467f
commit 2acffd56a5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
etc/disarchive-manifest.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -30,11 +30,12 @@
(match (origin-actual-file-name origin) (match (origin-actual-file-name origin)
(#f #f) (#f #f)
((? string? file) ((? string? file)
;; As of version 0.2.1, Disarchive can only deal with raw tarballs and ;; As of version 0.4.0, Disarchive can only deal with raw tarballs,
;; gzip-compressed tarballs. ;; gzip-compressed tarballs, and xz-compressed tarballs.
(and (origin-hash origin) (and (origin-hash origin)
(or (string-suffix? ".tar.gz" file) (or (string-suffix? ".tar.gz" file)
(string-suffix? ".tgz" file) (string-suffix? ".tgz" file)
(string-suffix? ".tar.xz" file)
(string-suffix? ".tar" file)))))) (string-suffix? ".tar" file))))))
(define (origin->disarchive origin) (define (origin->disarchive origin)