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")))))) (string-append "etcdir = $(prefix)/etc\n"))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (alist-replace '(#:phases
'configure (modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(substitute* "Makefile" (substitute* "Makefile"
(("^prefix = .*$") (("^prefix = .*$")
(string-append "prefix = " (string-append "prefix = "
(assoc-ref outputs "out") (assoc-ref outputs "out")
"\n")))) "\n")))))
(alist-cons-after (add-after 'install 'wrap
'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((wget (assoc-ref inputs "wget")) (let ((wget (assoc-ref inputs "wget"))
(vorbis (assoc-ref inputs "vorbis-tools")) (vorbis (assoc-ref inputs "vorbis-tools"))
@ -333,8 +333,7 @@ from an audio CD.")
(for-each wrap (for-each wrap
(find-files (string-append out "/bin") (find-files (string-append out "/bin")
".*")))) ".*"))))))
%standard-phases))
#:tests? #f)) #:tests? #f))
(inputs `(("wget" ,wget) (inputs `(("wget" ,wget)