02/02: self: Add dependency on GnuTLS.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 108015df6d03e82ac9a6a0a92dcfa389fa702e72
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jun 27 22:33:36 2018 +0200

    self: Add dependency on GnuTLS.
    
    Fixes <https://bugs.gnu.org/31983>.
    Reported by Fis Trivial <address@hidden>.
    
    * guix/self.scm (specification->package): Add "gnutls" and
    "guile2.0-gnutls".
    (compiled-guix)[gnutls]: New variable.
    [dependencies]: Add it.
---
 guix/self.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index 0ad8c34..89c5428 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -83,6 +83,7 @@ GUILE-VERSION (\"2.0\" or \"2.2\"), or #f if none of the 
packages matches."
       ("guile-ssh"  (ref '(gnu packages ssh)   'guile-ssh))
       ("guile-git"  (ref '(gnu packages guile) 'guile-git))
       ("guile-sqlite3" (ref '(gnu packages guile) 'guile-sqlite3))
+      ("gnutls"     (ref '(gnu packages tls) 'gnutls))
       ("libgcrypt"  (ref '(gnu packages gnupg) 'libgcrypt))
       ("zlib"       (ref '(gnu packages compression) 'zlib))
       ("gzip"       (ref '(gnu packages compression) 'gzip))
@@ -92,6 +93,7 @@ GUILE-VERSION (\"2.0\" or \"2.2\"), or #f if none of the 
packages matches."
       ("guile2.0-ssh"  (ref '(gnu packages ssh) 'guile2.0-ssh))
       ("guile2.0-git"  (ref '(gnu packages guile) 'guile2.0-git))
       ;; XXX: No "guile2.0-sqlite3".
+      ("guile2.0-gnutls" (ref '(gnu packages tls) 'gnutls/guile-2.0))
       (_               #f))))                     ;no such package
 
 
@@ -459,11 +461,16 @@ assumed to be part of MODULES."
                        "guile-sqlite3"
                        "guile2.0-sqlite3"))
 
+  (define gnutls
+    (package-for-guile guile-version
+                       "gnutls" "guile2.0-gnutls"))
+
   (define dependencies
     (match (append-map (lambda (package)
                          (cons (list "x" package)
                                (package-transitive-propagated-inputs package)))
-                       (list guile-git guile-json guile-ssh guile-sqlite3))
+                       (list gnutls guile-git guile-json
+                             guile-ssh guile-sqlite3))
       (((labels packages _ ...) ...)
        packages)))