gnu: sed: Use 'modify-phases' syntax.
* gnu/packages/base.scm (sed)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
parent
b7a5a4821f
commit
51c8e2996c
|
@ -131,16 +131,17 @@ including, for example, recursive directory searching.")
|
||||||
(arguments
|
(arguments
|
||||||
(if (%current-target-system)
|
(if (%current-target-system)
|
||||||
'()
|
'()
|
||||||
`(#:phases (alist-cons-before
|
`(#:phases
|
||||||
'patch-source-shebangs 'patch-test-suite
|
(modify-phases %standard-phases
|
||||||
|
(add-before 'patch-source-shebangs 'patch-test-suite
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(let ((bash (assoc-ref inputs "bash")))
|
(let ((bash (assoc-ref inputs "bash")))
|
||||||
(patch-makefile-SHELL "testsuite/Makefile.tests")
|
(patch-makefile-SHELL "testsuite/Makefile.tests")
|
||||||
(substitute* '("testsuite/bsd.sh"
|
(substitute* '("testsuite/bsd.sh"
|
||||||
"testsuite/bug-regex9.c")
|
"testsuite/bug-regex9.c")
|
||||||
(("/bin/sh")
|
(("/bin/sh")
|
||||||
(string-append bash "/bin/bash")))))
|
(string-append bash "/bin/bash")))
|
||||||
%standard-phases))))
|
#t)))))))
|
||||||
(description
|
(description
|
||||||
"Sed is a non-interactive, text stream editor. It receives a text
|
"Sed is a non-interactive, text stream editor. It receives a text
|
||||||
input from a file or from standard input and it then applies a series of text
|
input from a file or from standard input and it then applies a series of text
|
||||||
|
|
Loading…
Reference in New Issue