From 016299d85935cb269ae74c206c245ce23796160e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 27 Dec 2020 12:34:27 +0100 Subject: substitute: Add zstd support. * guix/scripts/substitute.scm (%compression-methods): Add zstd. (compresses-better?): "lzip" always wins. --- guix/scripts/substitute.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'guix') diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index d5dff69e44..dcedc609d2 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -944,6 +944,8 @@ (define %compression-methods ;; supported. See 'decompressed-port' in (guix utils). `(("gzip" . ,(const #t)) ("lzip" . ,(const #t)) + ("zstd" . ,(lambda () + (resolve-module '(zstd) #t #f #:ensure #f))) ("xz" . ,(const #t)) ("bzip2" . ,(const #t)) ("none" . ,(const #t)))) @@ -961,6 +963,7 @@ (define (compresses-better? compression1 compression2) (match compression1 ("none" #f) ("gzip" (string=? compression2 "none")) + ("lzip" #t) (_ (or (string=? compression2 "none") (string=? compression2 "gzip"))))) -- cgit v1.2.3