me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/packages/mail.scm (mailutils)[arguments]: In #:configure-flags,
replace hard-coded "2.2" with the 'version-major+minor' of the "guile"
input.
(guile3.0-mailutils): New variable.
This commit is contained in:
Ludovic Courtès 2020-01-26 23:11:25 +01:00
parent 3d11114d22
commit 98dd9ff800
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/mail.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net> ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com>
@ -137,7 +137,9 @@
#:use-module (guix build-system guile) #:use-module (guix build-system guile)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system trivial)) #:use-module (guix build-system trivial)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
(define-public mailutils (define-public mailutils
(package (package
@ -152,7 +154,7 @@
"1wkn9ch664477r4d8jk9153w5msljsbj99907k7zgzpmywbs6ba7")))) "1wkn9ch664477r4d8jk9153w5msljsbj99907k7zgzpmywbs6ba7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'check 'prepare-test-suite (add-before 'check 'prepare-test-suite
(lambda _ (lambda _
@ -200,12 +202,18 @@
#t))) #t)))
;; TODO: Add `--with-sql'. ;; TODO: Add `--with-sql'.
#:configure-flags (list "--sysconfdir=/etc" #:configure-flags
(list "--sysconfdir=/etc"
;; Add "/2.2" to the installation directory. ;; Add "/X.Y" to the installation directory.
(string-append "--with-guile-site-dir=" (string-append "--with-guile-site-dir="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/share/guile/site/2.2")) "/share/guile/site/"
,(match (assoc "guile"
(package-inputs this-package))
(("guile" guile)
(version-major+minor
(package-version guile))))))
#:parallel-tests? #f)) #:parallel-tests? #f))
(native-inputs (native-inputs
@ -238,6 +246,14 @@ software.")
;; Libraries are under LGPLv3+, and programs under GPLv3+. ;; Libraries are under LGPLv3+, and programs under GPLv3+.
(list gpl3+ lgpl3+)))) (list gpl3+ lgpl3+))))
(define-public guile3.0-mailutils
(package
(inherit mailutils)
(name "guile3.0-mailutils")
(inputs
`(("guile" ,guile-3.0)
,@(alist-delete "guile" (package-inputs mailutils))))))
(define-public nullmailer (define-public nullmailer
(package (package
(name "nullmailer") (name "nullmailer")