ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 06:42:14 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: sed: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/base.scm (sed)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-11-27 10:25:45 +02:00
parent b7a5a4821f
commit 51c8e2996c
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/base.scm
View file

@ -131,16 +131,17 @@ (define-public sed
(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
(lambda* (#:key inputs #:allow-other-keys) (add-before 'patch-source-shebangs 'patch-test-suite
(let ((bash (assoc-ref inputs "bash"))) (lambda* (#:key inputs #:allow-other-keys)
(patch-makefile-SHELL "testsuite/Makefile.tests") (let ((bash (assoc-ref inputs "bash")))
(substitute* '("testsuite/bsd.sh" (patch-makefile-SHELL "testsuite/Makefile.tests")
"testsuite/bug-regex9.c") (substitute* '("testsuite/bsd.sh"
(("/bin/sh") "testsuite/bug-regex9.c")
(string-append bash "/bin/bash"))))) (("/bin/sh")
%standard-phases)))) (string-append bash "/bin/bash")))
#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