gnu: abcde: Use 'modify-phases'.
* gnu/packages/cdrom.scm (adcde)[arguments]: Use 'modify-phases'.
This commit is contained in:
parent
1bb4005fbd
commit
7df85799b1
|
@ -304,16 +304,16 @@ from an audio CD.")
|
|||
(string-append "etcdir = $(prefix)/etc\n"))))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
'(#:phases (alist-replace
|
||||
'configure
|
||||
'(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||||
(substitute* "Makefile"
|
||||
(("^prefix = .*$")
|
||||
(string-append "prefix = "
|
||||
(assoc-ref outputs "out")
|
||||
"\n"))))
|
||||
(alist-cons-after
|
||||
'install 'wrap
|
||||
"\n")))))
|
||||
(add-after 'install 'wrap
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let ((wget (assoc-ref inputs "wget"))
|
||||
(vorbis (assoc-ref inputs "vorbis-tools"))
|
||||
|
@ -333,8 +333,7 @@ from an audio CD.")
|
|||
|
||||
(for-each wrap
|
||||
(find-files (string-append out "/bin")
|
||||
".*"))))
|
||||
%standard-phases))
|
||||
".*"))))))
|
||||
#:tests? #f))
|
||||
|
||||
(inputs `(("wget" ,wget)
|
||||
|
|
Loading…
Reference in New Issue