me/guix
Archived
1
0
Fork 0
Code Activity

gnu: busybox: Use 'modify-phases'.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/busybox.scm
View file

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