gnu: gettext: Use "modify-phases" syntax.

* gnu/packages/gettext.scm (gettext)[arguments]: Use "modify-phases" syntax.
This commit is contained in:
Efraim Flashner 2016-01-05 21:13:57 +02:00
parent d99861d39d
commit e5f037624e
1 changed files with 29 additions and 30 deletions

View File

@ -55,8 +55,9 @@
(inputs (inputs
`(("expat" ,expat))) `(("expat" ,expat)))
(arguments (arguments
`(#:phases (alist-cons-before `(#:phases
'check 'patch-tests (modify-phases %standard-phases
(add-before 'check 'patch-tests
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((bash (which "sh"))) (let* ((bash (which "sh")))
;; Some of the files we're patching are ;; Some of the files we're patching are
@ -77,16 +78,14 @@
(substitute* "gettext-tools/src/project-id" (substitute* "gettext-tools/src/project-id"
(("/bin/pwd") (("/bin/pwd")
"pwd"))))) "pwd"))))))
(alist-cons-before (add-before 'configure 'link-expat
'configure 'link-expat
(lambda _ (lambda _
;; Gettext defaults to opening expat via dlopen on ;; Gettext defaults to opening expat via dlopen on
;; "Linux". Change to link directly. ;; "Linux". Change to link directly.
(substitute* "gettext-tools/configure" (substitute* "gettext-tools/configure"
(("LIBEXPAT=\"-ldl\"") "LIBEXPAT=\"-ldl -lexpat\"") (("LIBEXPAT=\"-ldl\"") "LIBEXPAT=\"-ldl -lexpat\"")
(("LTLIBEXPAT=\"-ldl\"") "LTLIBEXPAT=\"-ldl -lexpat\""))) (("LTLIBEXPAT=\"-ldl\"") "LTLIBEXPAT=\"-ldl -lexpat\"")))))
%standard-phases))
;; When tests fail, we want to know the details. ;; When tests fail, we want to know the details.
#:make-flags '("VERBOSE=yes"))) #:make-flags '("VERBOSE=yes")))