nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: make-boot0: Use 'modify-phases'. 

* gnu/packages/commencement.scm (gnu-make-boot0)[arguments]: Use
'modify-phases'.
This commit is contained in:
Ludovic Courtès 2016-10-01 11:43:33 +02:00
parent d31860b9de
commit 8e5e8724d2
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/commencement.scm
View File

@ -75,17 +75,17 @@
#:tests? #f ; cannot run "make check" #:tests? #f ; cannot run "make check"
,@(substitute-keyword-arguments (package-arguments gnu-make) ,@(substitute-keyword-arguments (package-arguments gnu-make)
((#:phases phases) ((#:phases phases)
`(alist-replace `(modify-phases ,phases
'build (lambda _ (replace 'build
(zero? (system* "./build.sh"))) (lambda _
(alist-replace (zero? (system* "./build.sh"))))
'install (lambda* (#:key outputs #:allow-other-keys) (replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(mkdir-p bin) (mkdir-p bin)
(copy-file "make" (copy-file "make"
(string-append bin "/make")))) (string-append bin "/make"))))))))))
,phases))))))
(native-inputs '()) ; no need for 'pkg-config' (native-inputs '()) ; no need for 'pkg-config'
(inputs %bootstrap-inputs)))) (inputs %bootstrap-inputs))))