branch master updated: self: Add guile-lzma as a dependency.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

samplet pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 05b1f02  self: Add guile-lzma as a dependency.
05b1f02 is described below

commit 05b1f024be17786003ba7242ac34151b91740c74
Author: Timothy Sample <samplet@ngyro.com>
AuthorDate: Wed Dec 22 17:35:56 2021 -0500

    self: Add guile-lzma as a dependency.
    
    This is a follow-up to 35ce3e5de6d39d4959ecae31e8f8ce2bbb645e0a, fixing
    Disarchive recovery when the download script is run from a 'guix pull'
    profile.
    
    * guix/self.scm (specification->package): Add "guile-lzma".
    (compiled-guix): Add GUILE-LZMA to DEPENDENCIES in
    the #:dependencies argument to 'guix-command'.
---
 guix/self.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index bd9a71d..943bb0b 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -64,6 +64,7 @@
       ("guile-gcrypt"  (ref '(gnu packages gnupg) 'guile-gcrypt))
       ("gnutls"     (ref '(gnu packages tls) 'gnutls))
       ("disarchive" (ref '(gnu packages backup) 'disarchive))
+      ("guile-lzma" (ref '(gnu packages guile) 'guile-lzma))
       ("gzip"       (ref '(gnu packages compression) 'gzip))
       ("bzip2"      (ref '(gnu packages compression) 'bzip2))
       ("xz"         (ref '(gnu packages compression) 'xz))
@@ -789,6 +790,9 @@ itself."
   (define disarchive
     (specification->package "disarchive"))
 
+  (define guile-lzma
+    (specification->package "guile-lzma"))
+
   (define dependencies
     (append-map transitive-package-dependencies
                 (list guile-gcrypt gnutls guile-git guile-avahi
@@ -1009,7 +1013,9 @@ itself."
                 (command  (guix-command modules
                                         #:source source
                                         #:dependencies
-                                        (cons disarchive dependencies)
+                                        (cons* disarchive
+                                               guile-lzma
+                                               dependencies)
                                         #:guile guile-for-build
                                         #:guile-version guile-version)))
            (whole-package name modules dependencies