me/guix
Archived
1
0
Fork 0
Code Activity

gnu: abcde: Use 'modify-phases'.

Browse source 
* gnu/packages/cdrom.scm (adcde)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-03-13 20:41:57 +02:00
parent 1bb4005fbd
commit 7df85799b1
1 changed files with 29 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/cdrom.scm
View file

@ -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)