guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

05/07: substitute: Add zstd support.


From: guix-commits
Subject: 05/07: substitute: Add zstd support.
Date: Wed, 13 Jan 2021 17:06:01 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit 016299d85935cb269ae74c206c245ce23796160e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Dec 27 12:34:27 2020 +0100

    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(+)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index d5dff69..dcedc60 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -944,6 +944,8 @@ authorized substitutes."
   ;; 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 @@ this is a rough approximation."
   (match compression1
     ("none" #f)
     ("gzip" (string=? compression2 "none"))
+    ("lzip" #t)
     (_      (or (string=? compression2 "none")
                 (string=? compression2 "gzip")))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]