me/guix
Archived
1
0
Fork 0
Code Activity

gnu: notmuch: Use G-expressions.

Browse source 
* gnu/packages/mail.scm (notmuch)[arguments]: Use G-expressions.
<#:phases>: Use SEARCH-INPUT-FILES instead of WHICH.
This commit is contained in:
Nicolas Goaziou 2022-02-07 10:59:29 +01:00
parent fb3508bb36
commit d7368fe7f2
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 20 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/packages/mail.scm
View file

@ -1345,24 +1345,26 @@ invoking @command{notifymuch} from the post-new hook.")
(base32 "0fdc81m24xrbhfrhw00g12ak4b8hap4961sq7ap6q2pjqhac8cd8")))) (base32 "0fdc81m24xrbhfrhw00g12ak4b8hap4961sq7ap6q2pjqhac8cd8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list
(list "V=1" ; verbose test output #:make-flags
#~(list "V=1" ; verbose test output
"NOTMUCH_TEST_TIMEOUT=1h") ; don't fail on slow machines "NOTMUCH_TEST_TIMEOUT=1h") ; don't fail on slow machines
#:phases (modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(setenv "CC" ,(cc-for-target)) (setenv "CC" #$(cc-for-target))
(setenv "CONFIG_SHELL" (which "sh")) (setenv "CONFIG_SHELL" (search-input-file inputs "/bin/sh"))
(let* ((out (assoc-ref outputs "out")))
(invoke "./configure" (invoke "./configure"
(string-append "--prefix=" out) (string-append "--prefix=" #$output)
"--without-emacs")))) "--without-emacs")))
(add-before 'check 'prepare-test-environment (add-before 'check 'prepare-test-environment
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(setenv "TEST_CC" ,(cc-for-target)) (setenv "TEST_CC" #$(cc-for-target))
;; Patch various inline shell invocations. ;; Patch various inline shell invocations.
(let ((sh (search-input-file inputs "/bin/sh")))
(substitute* (find-files "test" "\\.sh$") (substitute* (find-files "test" "\\.sh$")
(("/bin/sh") (which "sh")))))))) (("/bin/sh") sh))))))))
(native-inputs (native-inputs
(list bash-completion (list bash-completion
pkg-config pkg-config