amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

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