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

gnu: busybox: Use 'modify-phases'. 

* gnu/packages/busybox.scm (busybox)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-06-30 19:09:40 +03:00
parent 2e5505e5ea
commit 84d08af653
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 26 additions and 29 deletions
gnu/packages
busybox.scm

17
gnu/packages/busybox.scm
View File

@ -42,11 +42,10 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda _ (zero? (system* "make" "defconfig"))) (lambda _ (zero? (system* "make" "defconfig"))))
(alist-replace (replace 'check
'check
(lambda _ (lambda _
(substitute* '("testsuite/du/du-s-works" (substitute* '("testsuite/du/du-s-works"
"testsuite/du/du-works") "testsuite/du/du-works")
@ -84,16 +83,14 @@
;; "V=1" ;; "V=1"
"SKIP_KNOWN_BUGS=1" "SKIP_KNOWN_BUGS=1"
"SKIP_INTERNET_TESTS=1" "SKIP_INTERNET_TESTS=1"
"check"))) "check"))))
(alist-replace (replace 'install
'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (zero?
(system* "make" (system* "make"
(string-append "CONFIG_PREFIX=" out) (string-append "CONFIG_PREFIX=" out)
"install")))) "install"))))))))
%standard-phases)))))
(native-inputs `(("perl" ,perl) ; needed to generate the man pages (pod2man) (native-inputs `(("perl" ,perl) ; needed to generate the man pages (pod2man)
;; The following are needed by the tests. ;; The following are needed by the tests.
("inetutils" ,inetutils) ("inetutils" ,inetutils)