02/03: self: Add dependency on Disarchive.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 67bf61255414115ffae0141df9dd3623bc742bff
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 14 22:52:46 2021 +0200

    self: Add dependency on Disarchive.
    
    This enables the Disarchive fallback implemented in commit
    fbc2a52a32ddc664db8ebab420c2e17b1432c744 (on foreign distros).
    
    * guix/self.scm (specification->package): Add "disarchive".
    (compiled-guix): Add DISARCHIVE to DEPENDENCIES in the #:dependencies
    argument to 'guix-command'.
---
 guix/self.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index cdbb606..6662453 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -63,6 +63,7 @@
       ("guile-zstd" (ref '(gnu packages guile) 'guile-zstd))
       ("guile-gcrypt"  (ref '(gnu packages gnupg) 'guile-gcrypt))
       ("gnutls"     (ref '(gnu packages tls) 'gnutls))
+      ("disarchive" (ref '(gnu packages backup) 'disarchive))
       ("gzip"       (ref '(gnu packages compression) 'gzip))
       ("bzip2"      (ref '(gnu packages compression) 'bzip2))
       ("xz"         (ref '(gnu packages compression) 'xz))
@@ -842,6 +843,9 @@ itself."
   (define gnutls
     (specification->package "gnutls"))
 
+  (define disarchive
+    (specification->package "disarchive"))
+
   (define dependencies
     (append-map transitive-package-dependencies
                 (list guile-gcrypt gnutls guile-git guile-avahi
@@ -1026,7 +1030,8 @@ itself."
          (let* ((modules  (built-modules (compose list node-source+compiled)))
                 (command  (guix-command modules
                                         #:source source
-                                        #:dependencies dependencies
+                                        #:dependencies
+                                        (cons disarchive dependencies)
                                         #:guile guile-for-build
                                         #:guile-version guile-version)))
            (whole-package name modules dependencies