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

gnu: linux-libre-headers: Use invoke instead of system*. 

* gnu/packages/linux.scm (linux-libre-headers)[arguments]: Use invoke and
remove vestigial result code plumbing.
This commit is contained in:
Mark H Weaver 2018-03-16 02:03:26 -04:00
parent 20927c9331
commit 5dc9ded15d
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/linux.scm
View File

@ -184,15 +184,15 @@ defconfig. Return the appropriate make target if applicable, otherwise return
(%current-system)))))
(setenv "ARCH" arch)
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(and (zero? (system* "make" defconfig))
(zero? (system* "make" "mrproper" "headers_check"))))))
(invoke "make" defconfig)
(invoke "make" "mrproper" "headers_check"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(and (zero? (system* "make"
(invoke "make"
(string-append "INSTALL_HDR_PATH=" out)
"headers_install"))
(begin
"headers_install")
(mkdir (string-append out "/include/config"))
(call-with-output-file
(string-append out
@ -206,7 +206,7 @@ defconfig. Return the appropriate make target if applicable, otherwise return
;; reproducibility for the bootstrap binaries.
(for-each delete-file (find-files out "\\.install"))
#t))))))
#t))))
#:allowed-references ()
#:tests? #f))
(home-page "https://www.gnu.org/software/linux-libre/")