01/03: gnu: guix: Add dependency on Disarchive.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0b1f70d1a792af40aa0d13b3d227fde88f02d061
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 14 22:50:53 2021 +0200

    gnu: guix: Add dependency on Disarchive.
    
    This enables the Disarchive fallback implemented in commit
    fbc2a52a32ddc664db8ebab420c2e17b1432c744.
    
    * gnu/packages/package-management.scm (guix)[inputs]: Add DISARCHIVE.
    [arguments]: In 'wrap-program' phase, add DISARCHIVE to the search path.
---
 gnu/packages/package-management.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index ef5d973..c72c221 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -312,9 +312,11 @@ $(prefix)/etc/openrc\n")))
                                                   "guile-bytestructures"))
                                (ssh    (assoc-ref inputs "guile-ssh"))
                                (gnutls (assoc-ref inputs "gnutls"))
+                               (disarchive (assoc-ref inputs "disarchive"))
                                (locales (assoc-ref inputs 
"glibc-utf8-locales"))
                                (deps   (list gcrypt json sqlite gnutls git
-                                             bs ssh zlib lzlib zstd guile-lib))
+                                             bs ssh zlib lzlib zstd guile-lib
+                                             disarchive))
                                (deps*  (if avahi (cons avahi deps) deps))
                                (effective
                                 (read-line
@@ -416,6 +418,8 @@ $(prefix)/etc/openrc\n")))
          ("bootstrap/tar" ,(bootstrap-executable "tar" (%current-system)))
          ("bootstrap/xz" ,(bootstrap-executable "xz" (%current-system)))
 
+         ("disarchive" ,disarchive)               ;for 'guix perform-download'
+
          ("glibc-utf8-locales" ,glibc-utf8-locales)))
       (propagated-inputs
        `(("gnutls" ,gnutls)