From 079f013be2a3601518a67d65f4e39f7fabddb053 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 20 Jan 2017 21:35:51 +0100
Subject: [PATCH] gnu: gnutls: Add 'guile2.2-gnutls'.
Suggested by Chris Webber.
* gnu/packages/tls.scm (gnutls/guile-2.2): New variable.
---
gnu/packages/tls.scm | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index b6a193de1b5..1198eb7d0ea 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -46,7 +46,8 @@ (define-module (gnu packages tls)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages texinfo)
- #:use-module (gnu packages base))
+ #:use-module (gnu packages base)
+ #:use-module (srfi srfi-1))
(define-public libtasn1
(package
@@ -227,6 +228,19 @@ (define gnutls-3.5.8 ;fixes GNUTLS-SA-2017-{1,2}
"1zyl2z63s68hx1dpxqx0lykmlf3rwrzlrf44sq3h7dvjmr1z55qf"))))
(replacement #f)))
+(define-public gnutls/guile-2.2
+ ;; GnuTLS for Guile 2.2. This is supported by GnuTLS >= 3.5.5.
+ (package
+ (inherit gnutls-3.5.8)
+ (name "guile2.2-gnutls")
+ (arguments
+ ;; Remove '--with-guile-site-dir=…/2.0'.
+ (substitute-keyword-arguments (package-arguments gnutls-3.5.8)
+ ((#:configure-flags flags)
+ `(cdr ,flags))))
+ (inputs `(("guile" ,guile-next)
+ ,@(alist-delete "guile" (package-inputs gnutls-3.5.8))))))
+
(define-public openssl
(package
(name "openssl")
--
GitLab