gnu: util-linux: Use 'modify-phases'.

* gnu/packages/linux.scm (util-linux)[arguments]: Use 'modify-phases' instead
  of 'alist-cons-before'.
master
Ludovic Courtès 2015-07-14 12:39:58 +02:00
parent 7a34576206
commit 1b9cf4ad2f
1 changed files with 11 additions and 11 deletions

View File

@ -417,17 +417,17 @@ providing the system administrator with some help in common tasks.")
(string-append "--with-bashcompletiondir="
(assoc-ref %outputs "out")
"/etc/bash_completion.d"))
#:phases (alist-cons-before
'check 'pre-check
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(net (assoc-ref inputs "net-base")))
;; Change the test to refer to the right file.
(substitute* "tests/ts/misc/mcookie"
(("/etc/services")
(string-append net "/etc/services")))
#t))
%standard-phases)))
#:phases (modify-phases %standard-phases
(add-before
'check 'pre-check
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(net (assoc-ref inputs "net-base")))
;; Change the test to refer to the right file.
(substitute* "tests/ts/misc/mcookie"
(("/etc/services")
(string-append net "/etc/services")))
#t))))))
(inputs `(("zlib" ,zlib)
("ncurses" ,ncurses)))
(native-inputs