mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gnutls: Add "guile3.0-gnutls" variant.

Browse source 
* gnu/packages/tls.scm (gnutls-3.6.10, guile3.0-gnutls): New variables.
This commit is contained in:
Ludovic Courtès 2019-11-23 19:13:16 +01:00
parent 01c11aeb95
commit d630d78104
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/tls.scm
View file

@ -263,6 +263,39 @@ required structures.")
(inputs `(("unbound" ,unbound) (inputs `(("unbound" ,unbound)
,@(package-inputs gnutls))))) ,@(package-inputs gnutls)))))
(define gnutls-3.6.10
;; This is for 'guile3.0-gnutls', below. Version 3.6.10 is the first to
;; introduce Guile 2.9/3.0 support.
(package
(inherit gnutls)
(version "3.6.10")
(source (origin
(inherit (package-source gnutls))
(uri (string-append "mirror://gnupg/gnutls/v"
(version-major+minor version)
"/gnutls-" version ".tar.xz"))
(sha256
(base32
"14r2h73yfj66cm14k9mnb3kgzq5a7qjg5b31m53bf19vcxkwmwxi"))))))
(define-public guile3.0-gnutls
(package
(inherit gnutls-3.6.10)
(name "guile3.0-gnutls")
(arguments
(substitute-keyword-arguments (package-arguments gnutls-3.6.10)
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(add-before 'build 'leave-guile-stdout-open
(lambda _
;; Work around <https://bugs.gnu.org/38348>.
(substitute* "guile/Makefile"
(("out=-") "out=/dev/null"))
#t))))))
(inputs `(("guile" ,guile-next)
,@(alist-delete "guile"
(package-inputs gnutls-3.6.10))))))
(define-public openssl (define-public openssl
(package (package
(name "openssl") (name "openssl")